方法很多啊，我自己的窍门是…… -dnc(蛋泥) @佛州华人论坛:佛州枫下论坛 The Rolia Forum of Florida

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

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.

在界面的菜单里面找，大概到倒数几个里面有一个转换的，直接就可以弄成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)

@Florida

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

Replies, comments and Discussions:

More Topics