×

Loading...
Ad by
  • 最优利率和cashback可以申请特批,好信用好收入offer更好。请点链接扫码加微信咨询,Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批,好信用好收入offer更好。请点链接扫码加微信咨询,Scotiabank -- Nick Zhang 6478812600。

方法很多啊,我自己的窍门是……

本文发表在 rolia.net 枫下论坛1,用IBM Personal Commnication自带的Export功能,我的版本是5.5,在菜单上选Action,再选Import/Export,不过这时候注意要用DATATRN之类的特殊ID,而且还要先键入Profile Noprefix之类的参数。

2,每个JCL都是个dataset,所以可以用IBM自带的SEND命令,把这个DSN发到一个FTP上,或者,我自己一直用这个窍门,我给自己发封邮件,这样还省得再去FTP上下载了。

000001 //JCLEXPT JOB (1804,OPSU),'JCL EXPORT',
000002 // MSGLEVEL=(1,1),
000003 // USER=ADUSER,NOTIFY=CHEND,
000004 // MSGCLASS=X,REGION=4096K,
000005 // CLASS=P
000006 //****************************************
000007 //* STEP DELETES OLD FLAT FILE FROM PREVIOUS RUN 这步和下一步(拷贝成FLAT FILE的那步)视情况而定,很可能不需要)
000008 //****************************************
000009 //DLETFILE EXEC PGM=IEFBR14
000010 //DD01 DD DSN=[JOB NAME]
000011 // UNIT=PROD,SPACE=(TRK,(0)),DISP=(MOD,DELETE)
000012 //****************************************
000013 //****************************************
000014 //* STEP COPIES JCL DSN TO FLAT FILE 000015 //****************************************
000016 //STEP005 EXEC PGM=IEBGENER
000017 //SYSOUT DD SYSOUT=*
000018 //SYSPRINT DD SYSOUT=*
000019 //SYSUDUMP DD SYSOUT=*
000020 //SYSUT1 DD DSN=[JOB NAME](0),
000021 // DISP=SHR
000022 //SYSUT2 DD DSN=[JOB NAME],
000023 // DISP=(NEW,CATLG,DELETE),
000024 // UNIT=PROD,
000025 // SPACE=(CYL,(02,01),RLSE),
000026 // DCB=(RECFM=FB,LRECL=332,BLKSIZE=0)
000027 //SYSIN DD DUMMY
000028 //*************************************
000029 //* SENDS JOB TO MYSELF
000030 //*************************************
000031 //STEP010 EXEC XMITIP
000032 //JOBEXPT DD DISP=SHR,DSN=[JOB NAME].FLAT
000033 //SYSTSIN DD *
000034 %XMITIP ([danny_chen@toyota.ca) +
000035 MSGDS 'CHEND.JOBLIB.([JOB NAME])' +
000036 SUBJECT 'Jcl Export' +
000037 FROM host@mainframe +
000038 FILE ('[JCL DATASET.FLAT') +
000039 /*
****** **************************** Bottom of Data *****************

3,还有个方法,就是自己写个小DOS Batch,把HOST上的DSN下到自己的PC中来,比如:

ECHO OFF
CLS
ECHO.
ECHO READY TO DOWNLOAD JCL
ECHO.
ECHO ********************************
ECHO **** JOB NAME ****
ECHO ********************************
ECHO
ECHO TO THE FOLDER D:\MY JCL\
ECHO.
ECHO.
ECHO ------------------------------------------------------
ECHO PLEASE ENSURE THAT THE HOST SESSION IS IN TSO OPTION 6
ECHO ------------------------------------------------------
PAUSE
ECHO.
ECHO.
DEL D:\MY JCL\[OLD JOB NAME].TXT
C:\[The folder that IBM Pcomm is installed]\RECEIVE d:\MY JCL [JCL DATASET] ASCII CRLF
ECHO -------------更多精彩文章及讨论,请光临枫下论坛 rolia.net
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / 有没有做Mainframe 的朋友?你们知道如何把IBM MVS操作系统中的源程序 转换到PC机上来?有转换的JCL吗?谢谢!
    • 在界面的菜单里面找,大概到倒数几个里面有一个转换的,直接就可以弄成PC的word文档。
      • 找到吃的了吗
        • 去喝了粥,好喝极了!不过一开始给砍了买了巨贵的矿泉水和罐头,气死了。回来发现有电了,正在弄点东西做储备了。
          • 我今天去买东西,一大堆人在抢购,场面真的“热烈”。
            • 昨晚不都抢完了吗?
            • 你那么多吃的还不够?奢侈!
              • 我病了,要多吃多占。本来买了一盒烤鸡腿加两条黄瓜。排队排到一半发现人人都买了面包,(放面包的架子基本空了)叫一位老大爷在架子上帮我抓了包WHITE BREAST
                • 你的马粪呢?我今天可是面包的影子都没见到,现在只能自己制造蛋糕了,5555555
                  • 在冰箱躺着呢。中午吃了俩个,剩下的在为它们失去的兄弟伤心呢。
                    • 你好心点让他们早点相聚啦。不要伤害人家感情。
                      • :--)
      • 谢谢你!我在日本时用过,可是这里的机器好象没有这界面。能给我一个Copy吗?请发到我的邮箱里。可能他们没有替我装。如有的话,我和我的主任说去。有没有现成的JCL?谢谢你!
        • 呵呵,我是在中国的时候用的,这里也没有用过。sorry
          • 没事,谢谢你!
      • 原来你不是买电脑的呀,不懂微机是因为弄得是大型机呀。牛!看来属于高收入人士。pfpf
        • 属于无业无收入人士。
    • UP!Help Please!
      • 方法很多啊,我自己的窍门是……
        本文发表在 rolia.net 枫下论坛1,用IBM Personal Commnication自带的Export功能,我的版本是5.5,在菜单上选Action,再选Import/Export,不过这时候注意要用DATATRN之类的特殊ID,而且还要先键入Profile Noprefix之类的参数。

        2,每个JCL都是个dataset,所以可以用IBM自带的SEND命令,把这个DSN发到一个FTP上,或者,我自己一直用这个窍门,我给自己发封邮件,这样还省得再去FTP上下载了。

        000001 //JCLEXPT JOB (1804,OPSU),'JCL EXPORT',
        000002 // MSGLEVEL=(1,1),
        000003 // USER=ADUSER,NOTIFY=CHEND,
        000004 // MSGCLASS=X,REGION=4096K,
        000005 // CLASS=P
        000006 //****************************************
        000007 //* STEP DELETES OLD FLAT FILE FROM PREVIOUS RUN 这步和下一步(拷贝成FLAT FILE的那步)视情况而定,很可能不需要)
        000008 //****************************************
        000009 //DLETFILE EXEC PGM=IEFBR14
        000010 //DD01 DD DSN=[JOB NAME]
        000011 // UNIT=PROD,SPACE=(TRK,(0)),DISP=(MOD,DELETE)
        000012 //****************************************
        000013 //****************************************
        000014 //* STEP COPIES JCL DSN TO FLAT FILE 000015 //****************************************
        000016 //STEP005 EXEC PGM=IEBGENER
        000017 //SYSOUT DD SYSOUT=*
        000018 //SYSPRINT DD SYSOUT=*
        000019 //SYSUDUMP DD SYSOUT=*
        000020 //SYSUT1 DD DSN=[JOB NAME](0),
        000021 // DISP=SHR
        000022 //SYSUT2 DD DSN=[JOB NAME],
        000023 // DISP=(NEW,CATLG,DELETE),
        000024 // UNIT=PROD,
        000025 // SPACE=(CYL,(02,01),RLSE),
        000026 // DCB=(RECFM=FB,LRECL=332,BLKSIZE=0)
        000027 //SYSIN DD DUMMY
        000028 //*************************************
        000029 //* SENDS JOB TO MYSELF
        000030 //*************************************
        000031 //STEP010 EXEC XMITIP
        000032 //JOBEXPT DD DISP=SHR,DSN=[JOB NAME].FLAT
        000033 //SYSTSIN DD *
        000034 %XMITIP ([danny_chen@toyota.ca) +
        000035 MSGDS 'CHEND.JOBLIB.([JOB NAME])' +
        000036 SUBJECT 'Jcl Export' +
        000037 FROM host@mainframe +
        000038 FILE ('[JCL DATASET.FLAT') +
        000039 /*
        ****** **************************** Bottom of Data *****************

        3,还有个方法,就是自己写个小DOS Batch,把HOST上的DSN下到自己的PC中来,比如:

        ECHO OFF
        CLS
        ECHO.
        ECHO READY TO DOWNLOAD JCL
        ECHO.
        ECHO ********************************
        ECHO **** JOB NAME ****
        ECHO ********************************
        ECHO
        ECHO TO THE FOLDER D:\MY JCL\
        ECHO.
        ECHO.
        ECHO ------------------------------------------------------
        ECHO PLEASE ENSURE THAT THE HOST SESSION IS IN TSO OPTION 6
        ECHO ------------------------------------------------------
        PAUSE
        ECHO.
        ECHO.
        DEL D:\MY JCL\[OLD JOB NAME].TXT
        C:\[The folder that IBM Pcomm is installed]\RECEIVE d:\MY JCL [JCL DATASET] ASCII CRLF
        ECHO -------------更多精彩文章及讨论,请光临枫下论坛 rolia.net
        • 非常感谢!以后还要请你多关照。再问一下,如何把源代码放回MVS中去? 就直接用Import/Export吗?多谢!
          • 不客气。简单的方法是在mvs安装的目录里,执行send命令,可以写个dos batch,Syntax是send c:\myjob.txt abc.defg(jobname) ascii crlf;或者用Pcomm的Import功能,但这里还是要注意先在tso command里加入profile noprefix等参数。
        • Where is IBM Personal Commnication? I can't find it. Would you please give an screen-copy? Please send it to my e-mail box on Rolia. Many thanks.
          • 你很受欢迎。//PComm是IBM做的OS/390的客户端软件,可使用TSO、CICS、Tivoli OPC和TMonDB2等,如PIC所示。不过我的疑问是,老兄如果你还没有Host可以联,那就算有了PComm,也没用啊。
            • Sorry, I can't input Chinese in the office. My screen is defferent form yours. I don't think I have PComm. I will try to use JCL to do that. Thank you so much. I still need your further help.
    • 用FTP, 什么机器上的文本都一样.
    • 对,建议用FTP,从MVS TSO(=6)或者从PC都可以,而且FTP 命令都一样。
      • 对。我是从MVS TSO(=6)上成功的。谢谢!
    • 给你一个FTP的例子。
      从PC的DOS执行下面:
      FTP mainframe.ip.address
      your_tso_userid
      your_tso_password
      ascii
      get 'mainframe.dataset.name(member)' member.c
      put member2.c 'mainframe.dataset.name(member2)'
      quit
      • 谢谢各位!谢谢Hunter、蛋泥、一壶茶。以后还要向各位多讨教。我在日本用的MVS好象和这里有点不一样。日本的终端都“和化”了,我一下子不适应。请多多关照!