方法有2 -hunterz(Hunter) @卡尔加里华人论坛:卡尔加里枫下论坛 The Rolia Forum of Calgary

工作学习 / IT技术讨论 / 跨平台问题：请做MainFrame的朋友帮忙。急！！！ -jameschen(我怕你了，还不可以吗); 2004-1-20 {456} (#1570086@0)
公司里要我把在大型机里的文件每天送到PC机上去，用FTP在JCL中传，没有问题。可是如何保证每次传的文件名都不一样呢？（比如，用Date作为后缀），我不知道如何在JCL中设参数变量。
后来，我在DOS下做了个.BAT文件，每次REname，但要人工介入，不行。有人说在JCL里不可以调用PC下的命令的。没有接口，是吗？
我的主任说，这个事情搞好了，春节放我半天假。请朋友们帮忙！谢谢！
用现成的JCL请发到我的信箱里来。
除以上两种办法之外，还有什么好办法，不需要人工介入？
先给大家拜年了！

去年有个MAINFRAME大虾帮了我好大的忙，不过他好象半夜出动的说。 -ningxin0809(雁影行洲); 2004-1-20 (#1570092@0)

谢谢你帮我顶了一下！好象他的ID叫Hunter? -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570103@0)

方法有2 -hunterz(Hunter); 2004-1-20 {577} (#1570146@0)
Hi James,
刚收到你的EMAIL, 这就来报道了.

1、使用Job Scheduler.
如果你们有Scheduler，如BMCd的Control-M, 你可以利用Scheduler来替换时间和日期变量后提交JCL.
例如在通过Control-M提交的JCL:
//jobcard..
//SEND2PC EXEC PGM=FTP,PARM='(EXIT'
//OUTPUT DD SYSOUT=*
//INPUT DD *
hostname.company.com
ftpuser
ftppassword
ascii
put 'MAIN.FRAME.FILE' pc.file.d%%DATE.t%%TIME.txt
quit
/*

2. 利用REXX来替换
用一个通用REXX程序来替换JCL中的变量, 例如时间或者随机数。我有许多现成的例子, 如果不着急, 明天帮你送过去。

事成之后别忘了请客。

Hunter

太感谢你了，请客是毫无疑问的了。麻烦你先给我一个电话，可能我明天调试时还会遇到问题。你明天到公司给我你的通用REXX程序好吗？你真是高手，谢谢！ -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570160@0)

用REXX程序稍有点繁琐。鉴于你请我客的份上，跟你说说吧。 -hunterz(Hunter); 2004-1-20 {974} (#1570250@0)
我的那些程序都是为不同的需求而定做的，我的翻翻以便找到一个适合你的。要我专为你定做一个的话，你得大请客了。

比如我给你一个REXX程序文本文件为SUBJCL.TXT.
使用下面步骤：

1. Upload this text file SUBJCL.TXT to a CLIST PDS file, such as SYS1.CLIST, or SYS1.USER.REXXLIB.

2. Change your FTP JCL to add variable %DATE%, %TIME% or %RANDOM%. Say your orignal JCL is YOUR.JCL.PDS(FTPJCL)

3. Use following JCL
//jobcard ...
//SUBJCL EXEC PGM=IKJEFT01,PARM=SUBJCL
//SYSEXEC DD DISP=SHR,DSN=SYS1.CLIST
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//INJCL DD DISP=SHR,DSN=YOUR.JCL.PDS(FTPJCL)

This JCL will read the FTPJCL member and replace all variables to current values:
%DATE% to current date, format yyyymmdd
%TIME% to current time, format hhmmss
%RANDOM% to any random number, from 100000 to 999999.
Then the replaced JCL will be submitted to JES to run.

So, just submit this JCL, instead of the original JCL.

我的办公室的电话在你的EMAIL里.

我没有收到你的E-mail,麻烦你再发一下行吗？我们能约个什么时间吗？ -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570277@0)
我有你办公室的电话了。收到E-mail了。谢谢！辛苦了。明天和你联系。 -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570295@0)

刚送给你SUBJCL程序，请查收。其他Rolian如果也需要，跟我说一声。 -hunterz(Hunter); 2004-1-21 (#1570661@0)

hunterDX，不知道欠你饭的人有多少乐，多谢帮忙 -ningxin0809(雁影行洲); 2004-1-20 (#1570177@0)

是呀。我很早就注意他了。不声不响做了很多好事。你也想请他吃饭吗？哪天一块出来认识认识好吗？ -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570194@0)

我只开了一个空头支票：（ -ningxin0809(雁影行洲); 2004-1-20 (#1570199@0)

没有关系。我可是真心实意的。（当然，你也是开玩笑的。可能不方便）春节好！ -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570218@0)

你过奖了，可惜就是没有人张罗饭局。哎，大年三十只能在家闷头吃。 -hunterz(Hunter); 2004-1-20 (#1570256@0)

你不会也在我们这片吧？要是的话，就可以聚一下乐。 -ningxin0809(雁影行洲); 2004-1-20 (#1570258@0)

我现在是519-Good-Man 了。 -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570261@0)
在Brampton, Queen & Dixie 肯怕离你们二位都有点远。慕名去过几次辣婆婆，开车近一下时，到家又饿了！ -hunterz(Hunter); 2004-1-20 (#1570271@0)

那就约个双方的中间地点，如何？ -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570282@0)

好说好说，先帮你把事情搞定再说。 -hunterz(Hunter); 2004-1-20 (#1570316@0)

你们出来不会不带家属吧？我本人不会开车的说 -ningxin0809(雁影行洲); 2004-1-20 (#1570319@0)

都不带家属好吗？我可以来接你。 -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570382@0)
也只好不带家属，让你省大发了。要不然，哼哼，我得开着校巴去！ -hunterz(Hunter); 2004-1-21 (#1570670@0)

Hi, that is unfair. Last time I posted one question about full definition of NCP and VTAM about Token-Ring, nobody answer my question -nking(Richme); 2004-1-24 (#1575525@0)

别介意，可能你的问题太难了。（不要吃我的醋好不好？哈哈） -jameschen(我怕你了，还不可以吗); 2004-1-24 (#1575562@0)
If you use chinese title, it might be more attractive. -lionel(Lionel); 2004-1-25 (#1575871@0)
是啊，你的问题我也看到了，觉得太难。我刚刚设置了SNA over Ethernet (OSA Express)。使用TCP/IP 和SNA共享同一个Fast Ethernet Adapter。这也许是SNA的最新使用方法。如果有兴趣我们可以探讨。 -hunterz(Hunter); 2004-1-25 (#1576911@0)

多谢HunterDX，若是有机会，真要和你聊一聊。这可是我头一次听说在OSA上同时RUN SNA和TCP/IP。 -nking(Richme); 2004-1-25 {392} (#1576979@0)
多谢HunterDX，若是有机会，真要和你聊一聊。这可是我头一次听说在OSA上同时RUN SNA和TCP/IP。本人非常有兴趣。上次我提的问题在无人睬我后，我只好自己闷头测试，无数遍之后，终于成功了。不过我可不敢SNA 和TCP/IP同时运行，只运行SNA在TOKEN-RING上，用SWITCH MAJNODE和CISCO路由器换成TCP/IP，远端再返回到SNA。用OSA卡专用TCP/IP做TN3270的防真。我知道这不是一个好的方法。若是HUNTER的方法可行，则我又多一备份了。

自OSA 2就同时支持SNA和TCP/IP. 只不过SNA需要OSA/SF进行简单配置。 -hunterz(Hunter); 2004-1-26 {757} (#1577177@0)
我们干这事的主要理由是公司决定放弃Token Ring，所有应用必须改为Ethernet。这刻苦坏了我，因为主机上的很多应用都基于Token Ring, 像SNA Gateway, Remote Telnet/Printing, 这个决定明摆着是冲咱们来的。所以你也最好做好准备，总有一天它回落到你头上。

我们最后有4个远程3174-1R（接SNA Impact Printers）连到一个OSA Adapter上。
基本配置和你的差不多：
OS/390 --- OSA --- local CISCO Router(dlsw) --- IP based WAN --- remote CISCO Router(dlsw) --- SNA Controller --- SNA Devices.

我们有4个Fast Ethernet Adpater, 2个配置为QDIO, 只跑TCP/IP (Batch and Online)。2个配置为Non-QDIO, 共享TCP/IP 和SNA (Web, backup and SNA traffic). 所有LPAR 系统都共享这4个Adapter。看起来有点复杂，但是很有用。

要共享TCP/IP 和SNA, 必须要有OSA/SF软件（随OS/390）。 VSE可能没戏。

Hunter

我还较幸运 -nking(Richme); 2004-1-26 {225} (#1578042@0)
因为我们在用两套互不相干的网。远程3174有30个，用LEASED LINE接入SNA。我不再愿玩那么老的同步modem了，才把SNA并入TCP/IP。我不主动提出用OSA RUN SNA，估计现在还没多大问题（替我保密，不要让我公司知道哦）。等我下决心了，再求你帮忙。

Hunter:答案太好了，这种方法能否用于传到AS/400,变spool file名字现在对方的主机的答复是不可能（他们电脑部有200人） -nolater(nolater); 2004-1-20 (#1570230@0)

同样道理，我认为可以。但没有试过。别见笑。请Hunter确认。 -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570252@0)
不是太清楚你的问题，如果本地是Mainframe, 远程是AS/400的话，当然是可以。只需要注意remote file需要符合AS/400文件名的要求。 -hunterz(Hunter); 2004-1-20 (#1570260@0)

还想多问一句，（钻一下牛角尖）真的在JCL里不可以调用PC-dos 下的命令的。没有接口，是吗？ -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570259@0)

这个问题有点复杂，但是还是有答案的。 -hunterz(Hunter); 2004-1-20 {253} (#1570267@0)
Mainframe 是可以通过UNIX REXEC方式调用远程计算机的程序的（当然也包括大多数UNIX命令）。
我们在实际应用中经常使用。

问题关键是PC，确切地说Windows是不支持REXEC的。除非你安装一些第三方软件, 或Freeware。

如果你需要REXEC调用的JCL, 请知一声。

Hunter

要的，我都要。我要好好地学一下。谢谢！ -jameschen(我怕你了，还不可以吗); 2004-1-20 (#1570286@0)

下面是一个REXEC的例子。 -hunterz(Hunter); 2004-1-23 {438} (#1573153@0)
//jobcard
//***************************************************************
//* REXEC Syntax:
//* REXEC -l userid -p passwd remote_host command
//SYMBOLS SET OPT0='/-l edi -p sobedi 172.27.12.20',
// OPT1='ps -ef'
//REXECJCL EXEC PGM=REXEC,
// PARM='&OPT0. &OPT1.'
//SYSPRINT DD SYSOUT=*

Thank you! But at present, Windows是不支持REXEC的. It only 支持UNIX. I need 安装一些第三方软件, after that, it might work. Right? -jameschen(我怕你了，还不可以吗); 2004-1-23 (#1573238@0)

Guru A... -lostme(lostme); 2004-1-25 (#1576119@0)

运行rexx不一定是最好的选择，因为这要求登录系统。我一般采用start procedure -lionel(Lionel); 2004-1-20 {227} (#1570364@0)
我以前做过类似的东西，就是要自动更名的。简单说来就是写一个类似IEBCOPY的小程序，不过在输出的时候，把源文件的字符串"DDDDDD"转换成当前的日期。运行改程序的时候，输入就是那个真正要执行的JCL(其中DDDDDD等待被替换。输出设置为intrdr。

言之有理！最好的办法应在系统性能和方便性之间来选择。 -hunterz(Hunter); 2004-1-21 {601} (#1570710@0)
一般这类工具可以用REXX, COBOL(或其他高级语言), 和Assembler来建立。REXX程序简单，开发快，类似UNIX Shell script，但是需要较多的系统资源，较慢。而Assembler 正好相反，程序速度巨快，但开发起来累死人。记得搞一个JES Spool Outwriter的Assembler程序，2000行Code 花了俺3星期！而COBOL或C基于两者之间。

编写工具的方法可能跟个人习惯有关，一般来说程序员喜欢用编译型的高级语言(C, COBOL, PL/I), 系统管理员喜欢用REXX，万不得已就用Assembler.

使用REXX并不需要Logon system。该JCL中只是让REXX 程序在TSO Address Space 中解释运行。而且这类小工具的性能差别不会很大，因为他们所作的事情很简单。

欢迎探讨！

Hunter

这种小程序不需要考虑太多系统性能的问题，关键的是要方便。下面是我以前设计的方案。 -lionel(Lionel); 2004-1-21 {829} (#1570991@0)
一般操作流程：
console: S dailyjcl

紧急情况处理流程：
如果某天处理出现问题，比如到半夜12:00以后才运行，但是仍然希望用前一天的日期，否则会和下一次的时间发生冲突。
console: S dailyjcl,date=xxxxxx (强制设定JCL的日期替换字符串)
--------------------------------------------------------------

start procedure: dailyjcl会把输入参数date的内容传给真正执行的程序subjcl

subjcl就是把输入的jcl源文件中的日期变量替换成为真正的日期，如果有输入参数，则以输入的参数当作系统日期。然后输出修改后的jcl (可以指向intrdr)

我以前用COBOL写过这样的程序，因为用COBOL实现串替换很容易，只要用inspect就行。

因为偶赋闲在家多年，所以拿不出现成的东西来。如果有环境的话，上面的东西很快就可以实现。

另外，运行rexx确实不需要logon tso，只要调用ikjeft01就行。因为我以前总是用rexx,clist写tso里的带panel的工具，所以就出现了习惯思维。哈哈，抱歉。

@Calgary

方法有2

Replies, comments and Discussions:

More Topics