×

Loading...
Ad by
  • 予人玫瑰，手有余香：加拿大新天地工作移民诚聘求职顾问&行业导师！
Ad by
  • 予人玫瑰，手有余香：加拿大新天地工作移民诚聘求职顾问&行业导师！

@Calgary

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

dnc(蛋泥)
本文发表在 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
(#1336372@0)
Last Updated: 2003-8-18
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / 有没有做Mainframe 的朋友？你们知道如何把IBM MVS操作系统中的源程序 转换到PC机上来？有转换的JCL吗？谢谢！ -jameschen(我怕你了，还不可以吗); 2003-8-15 (#1333012@0)
    • 在界面的菜单里面找，大概到倒数几个里面有一个转换的，直接就可以弄成PC的word文档。 -cuptea(一壶茶); 2003-8-15 (#1333045@0)
      • 找到吃的了吗 -56789(暴暴龙); 2003-8-15 (#1333047@0)
        • 去喝了粥，好喝极了！不过一开始给砍了买了巨贵的矿泉水和罐头，气死了。回来发现有电了，正在弄点东西做储备了。 -cuptea(一壶茶); 2003-8-15 (#1333048@0)
          • 我今天去买东西，一大堆人在抢购，场面真的“热烈”。 -56789(暴暴龙); 2003-8-15 (#1333054@0)
            • 昨晚不都抢完了吗？ -becky(精精亮透心凉); 2003-8-15 (#1333056@0)
            • 你那么多吃的还不够？奢侈！ -cuptea(一壶茶); 2003-8-15 (#1333058@0)
              • 我病了，要多吃多占。本来买了一盒烤鸡腿加两条黄瓜。排队排到一半发现人人都买了面包，（放面包的架子基本空了）叫一位老大爷在架子上帮我抓了包WHITE BREAST -56789(暴暴龙); 2003-8-15 (#1333071@0)
                • 你的马粪呢？我今天可是面包的影子都没见到，现在只能自己制造蛋糕了，5555555 -cuptea(一壶茶); 2003-8-15 (#1333073@0)
                  • 在冰箱躺着呢。中午吃了俩个，剩下的在为它们失去的兄弟伤心呢。 -56789(暴暴龙); 2003-8-15 (#1333079@0)
                    • 你好心点让他们早点相聚啦。不要伤害人家感情。 -cuptea(一壶茶); 2003-8-16 (#1333655@0)
                      • :--) -56789(暴暴龙); 2003-8-16 (#1333659@0)
      • 谢谢你！我在日本时用过，可是这里的机器好象没有这界面。能给我一个Copy吗？请发到我的邮箱里。可能他们没有替我装。如有的话，我和我的主任说去。有没有现成的JCL？谢谢你！ -jameschen(我怕你了，还不可以吗); 2003-8-15 (#1333051@0)
        • 呵呵，我是在中国的时候用的，这里也没有用过。sorry -cuptea(一壶茶); 2003-8-15 (#1333055@0)
          • 没事，谢谢你！ -jameschen(我怕你了，还不可以吗); 2003-8-15 (#1333064@0)
      • 原来你不是买电脑的呀，不懂微机是因为弄得是大型机呀。牛！看来属于高收入人士。pfpf -vega_lee(非典型天津人); 2003-8-15 (#1333092@0)
        • 属于无业无收入人士。 -cuptea(一壶茶); 2003-8-16 (#1333654@0)
    • UP!Help Please! -jameschen(我怕你了，还不可以吗); 2003-8-18 (#1336307@0)
      • 方法很多啊，我自己的窍门是…… -dnc(蛋泥); 2003-8-18 {3760} (#1336372@0)
        本文发表在 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吗？多谢！ -jameschen(我怕你了，还不可以吗); 2003-8-18 (#1336616@0)
          • 不客气。简单的方法是在mvs安装的目录里，执行send命令，可以写个dos batch，Syntax是send c:\myjob.txt abc.defg(jobname) ascii crlf；或者用Pcomm的Import功能，但这里还是要注意先在tso command里加入profile noprefix等参数。 -dnc(蛋泥); 2003-8-18 (#1336677@0)
        • 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. -jameschen(我怕你了，还不可以吗); 2003-8-19 (#1337439@0)
          • 你很受欢迎。//PComm是IBM做的OS/390的客户端软件，可使用TSO、CICS、Tivoli OPC和TMonDB2等，如PIC所示。不过我的疑问是，老兄如果你还没有Host可以联，那就算有了PComm，也没用啊。
            -dnc(蛋泥); 2003-8-19 (#1338625@0)
            • 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. -jameschen(我怕你了，还不可以吗); 2003-8-20 (#1338960@0)
    • 用FTP, 什么机器上的文本都一样. -guest1(guest); 2003-8-19 (#1337755@0)
    • 对，建议用FTP，从MVS TSO(=6)或者从PC都可以，而且FTP 命令都一样。 -hunterz(Hunter); 2003-8-22 (#1342211@0)
      • 对。我是从MVS TSO(=6)上成功的。谢谢！ -jameschen(我怕你了，还不可以吗); 2003-8-22 (#1342651@0)
    • 给你一个FTP的例子。 -hunterz(Hunter); 2003-8-22 {194} (#1342220@0)
      从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好象和这里有点不一样。日本的终端都“和化”了，我一下子不适应。请多多关照！ -jameschen(我怕你了，还不可以吗); 2003-8-22 (#1342667@0)

More Topics

  • 老程序员第一次用copilot的一点点体会
  • 现在社区游泳池招救生员巡逻，过一会还要不停的点人头，这工作是否很快就被AI代替了，装一个摄像头后面是AI处理系统，这样只招一个等着救人就行了，人头沉下水一定时间立马强光照射，还可以分析水下人的状况来判断是否溺水等
  • 新冠疫苗引发心肌炎? 最新研究这样看
  • 这道几何题有解吗?
  • SAM 2 Demo
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论