This topic has been archived. It cannot be replied.
-
工作学习 / IT技术讨论 / 跨平台问题：请做MainFrame的朋友帮忙。急！！！公司里要我把在大型机里的文件每天送到PC机上去，用FTP在JCL中传，没有问题。可是如何保证每次传的文件名都不一样呢？（比如，用Date作为后缀），我不知道如何在JCL中设参数变量。
后来，我在DOS下做了个.BAT文件，每次REname，但要人工介入，不行。有人说在JCL里不可以调用PC下的命令的。没有接口，是吗？
我的主任说，这个事情搞好了，春节放我半天假。请朋友们帮忙！谢谢！
用现成的JCL请发到我的信箱里来。
除以上两种办法之外，还有什么好办法，不需要人工介入？
先给大家拜年了！
-jameschen(我怕你了，还不可以吗);
2004-1-20
{456}
(#1570086@0)
-
去年有个MAINFRAME大虾帮了我好大的忙， 不过他好象半夜出动的说。
-ningxin0809(雁影行洲);
2004-1-20
(#1570092@0)
-
谢谢你帮我顶了一下！好象他的ID叫Hunter?
-jameschen(我怕你了，还不可以吗);
2004-1-20
(#1570103@0)
-
方法有2
-hunterz(Hunter);
2004-1-20
{577}
(#1570146@0)
-
太感谢你了，请客是毫无疑问的了。麻烦你先给我一个电话，可能我明天调试时还会遇到问题。你明天到公司给我你的通用REXX程序好吗？你真是高手，谢谢！
-jameschen(我怕你了，还不可以吗);
2004-1-20
(#1570160@0)
-
用REXX程序稍有点繁琐。鉴于你请我客的份上，跟你说说吧。
-hunterz(Hunter);
2004-1-20
{974}
(#1570250@0)
-
我没有收到你的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。多谢HunterDX，若是有机会，真要和你聊一聊。这可是我头一次听说在OSA上同时RUN SNA和TCP/IP。本人非常有兴趣。上次我提的问题在无人睬我后，我只好自己闷头测试，无数遍之后，终于成功了。不过我可不敢SNA 和TCP/IP同时运行，只运行SNA在TOKEN-RING上，用SWITCH MAJNODE和CISCO路由器换成TCP/IP，远端再返回到SNA。用OSA卡专用TCP/IP做TN3270的防真。我知道这不是一个好的方法。若是HUNTER的方法可行，则我又多一备份了。
-nking(Richme);
2004-1-25
{392}
(#1576979@0)
-
自OSA 2就同时支持SNA和TCP/IP. 只不过SNA需要OSA/SF进行简单配置。
-hunterz(Hunter);
2004-1-26
{757}
(#1577177@0)
-
我还较幸运因为我们在用两套互不相干的网。远程3174有30个，用LEASED LINE接入SNA。我不再愿玩那么老的同步modem了，才把SNA并入TCP/IP。我不主动提出用OSA RUN SNA，估计现在还没多大问题（替我保密，不要让我公司知道哦）。等我下决心了，再求你帮忙。
-nking(Richme);
2004-1-26
{225}
(#1578042@0)
-
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)
-
这个问题有点复杂，但是还是有答案的。Mainframe 是可以通过UNIX REXEC方式调用远程计算机的程序的（当然也包括大多数UNIX命令）。
我们在实际应用中经常使用。
问题关键是PC， 确切地说Windows是不支持REXEC的。除非你安装一些第三方软件, 或Freeware。
如果你需要REXEC调用的JCL, 请知一声。
Hunter
-hunterz(Hunter);
2004-1-20
{253}
(#1570267@0)
-
要的，我都要。我要好好地学一下。谢谢！
-jameschen(我怕你了，还不可以吗);
2004-1-20
(#1570286@0)
-
下面是一个REXEC的例子。//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=*
-hunterz(Hunter);
2004-1-23
{438}
(#1573153@0)
-
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我以前做过类似的东西，就是要自动更名的。简单说来就是写一个类似IEBCOPY的小程序，不过在输出的时候，把源文件的字符串"DDDDDD"转换成当前的日期。运行改程序的时候，输入就是那个真正要执行的JCL(其中DDDDDD等待被替换。输出设置为intrdr。
-lionel(Lionel);
2004-1-20
{227}
(#1570364@0)
-
言之有理！最好的办法应在系统性能和方便性之间来选择。
-hunterz(Hunter);
2004-1-21
{601}
(#1570710@0)
-
这种小程序不需要考虑太多系统性能的问题，关键的是要方便。下面是我以前设计的方案。
-lionel(Lionel);
2004-1-21
{829}
(#1570991@0)