×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络，最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

@Florida

这种小程序不需要考虑太多系统性能的问题，关键的是要方便。下面是我以前设计的方案。

lionel(Lionel)
一般操作流程：
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的工具，所以就出现了习惯思维。哈哈，抱歉。
(#1570991@0)
Last Updated: 2004-1-21
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / 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的工具，所以就出现了习惯思维。哈哈，抱歉。

More Topics

  • 脑洞大开，突发奇想，用力来传播信息
  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论