轩辕隐天山

技术交流

BlogJava 首页 新随笔 联系 聚合 管理
  16 Posts :: 0 Stories :: 5 Comments :: 0 Trackbacks
终于有helloworld的实力了,哈哈
 000001 //ST155XX JOB ,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=C,CLASS=C,
 000002 // NOTIFY=ST155
 000003 //STEP1 EXEC PGM=IEBGENER
 000004 //SYSPRINT DD SYSOUT=*
 000005 //SYSUT1 DD *
 000006 43521   JESSE JAMES    00230000200006STO 
 000007 43522   MARY MCGUIRE   01300001300000NET
 000008 43523   GEORGE JONES   00829300870805STO
 000009 43524   MARTHA STEWART 02112702060607CAT
 000010 43525   LORI LUNDY     00495300500004NET
 000011 43526   JOHN CANDY     04276504276507CAT 
 000012 43527   RICHARD GREEN  00132500200005STO
 000013 43528   BEV CRUSHER    15899915699900NET
 000014 43529   G.G. LIDDY     00399500427507STO
 000015 43530   HENRY FONDA    00594500550008STO
 000016 43531   BRENDA WALLS   00949901100000NET 
 000017 43532   GENIE BOYD     00099500100007CAT
 000018 43533   BON SCOTT      00149500158506STO
 000019 //SYSUT2 DD DSN=ST155.SRC.ALL,DISP=(,CATLG),VOL=SER=USER02,
 000020 // SPACE=(TRK,(2,1)),RECFM=FB,LRECL=80,DSORG=PS,UNIT=3390 
 000021 //SYSIN DD DUMMY
 000022 //ST155PPP JOB ,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=C,
 000023 // CLASS=C,NOTIFY=ST155
 000024 //STEP2 EXEC PGM=IEBGENER
 000025 //SYSPRINT DD SYSOUT=*
 000026 //SYSUT1 DD DSN= ST155.SRC.ALL,DISP=(OLD),UNIT=3390
 000027 //SYSUT2 DD DSN=ST155.ALLFOLD,DISP=(,CATLG),SPACE=(TRK,(10,5,20)),
 000028 // LRECL=80,RECFM=FB,VOL=SER=USER02,UNIT=3390,DSORG=PO
 000029 //SYSIN DD *
 000030   GENERATE MAXNAME=3,MAXGPS=2 
 000031   MEMBER NAME=MEM1
 000032          RECORD IDENT=(5,'43524',1)
 000033   MEMBER NAME=MEM2
 000034          RECORD IDENT=(5,'43530',1)
 000035   MEMBER NAME=MEM3
 000036 //ST155PTP JOB ,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=B, 
 000037 // CLASS=B,NOTIFY=ST155
 000038 //STEP3 EXEC PGM=IEBPTPCH
 000039 //SYSPRINT DD SYSOUT=*
 000040 //SYSUT1 DD DSN=ST155.ALLFOLD,DISP=(OLD),UNIT=3390
 000041 //SYSUT2 DD SYSOUT=*
 000042 //SYSIN DD * 
 000043   PRINT MAXNAME=3,MAXFLDS=3,TYPORG=PO
 000044   MEMBER NAME=MEM1
 000045   MEMBER NAME=MEM2
 000046   MEMBER NAME=MEM3

嘿嘿,helloworld:

000001 //ST155XX JOB ,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=C,CLASS=C,
 000002 // NOTIFY=ST155
 000003 //STEP1 EXEC PGM=IEBGENER
 000004 //SYSPRINT DD SYSOUT=*
 000005 //SYSUT1 DD *
 000006             HELLO WORLD!
 000007        HAHAHAHAHAHAHAHAHAHHAHA
 000008        IIIIIIIIIIIIIIIIIIIIIIII
 000009                 IIIIIII
 000010                 IIIIIII              S
 000011                 IIIIIII
 000012                 IIIIIII
 000013                 IIIIIII
 000014                 IIIIIII
 000015      IIIIIIIIIIIIIIIIIIIIIIIIIIIII
 000016 //SYSUT2 DD DSN=ST155.TEST.ABC,DISP=(,CATLG),VOL=SER=USER02,
 000017 // SPACE=(TRK,(2,1)),RECFM=FB,LRECL=80,DSORG=PS,UNIT=3390
 000018 //SYSIN DD DUMMY
posted on 2006-08-03 19:06 lightning 阅读(777) 评论(1)  编辑  收藏

Feedback

# re: 两天学习,jcl现在的成果,嘿嘿-原为lightning发表 2007-01-29 22:40 lansi
今天刚接触到JCL语言,一点不懂,周围也没有明白人,请教下高人,下面的代码是什么意思啊?急啊!谢谢了
\SORTNP
INFILE=(FILE=QYUYHDFL,MEDIA=VOL02,FILEORG=SEQ),
OUTFILE=(INFILE),
WKFILE=(FILE=SORTWK,MEDIA=VOL01,SZ=10,AU=TRK,INCSZ=10,TEMP);
\OPTION ;
RECORD: KEY=(5 7)
ENDSORT:
\ENDOPTION ;  回复  更多评论
  


只有注册用户登录后才能发表评论。


网站导航: