谁能告诉我哪里出错了,JCL

来源:互联网 发布:淘宝交话费没到账 编辑:程序博客网 时间:2024/05/01 08:17
 000100 //IBMUSERA JOB NOTIFY=&SYSUID                                   
 000200 //STEP1    EXEC PGM=DFSORT                                      
 000300 //SYSIN    DD *                                                 
 000400   OMIT COND=(5,3,EQ,C'MUS')                                     
 000500 //SYSOUT   DD SYSOUT=*                                          
 000600 //SORTIN    DD DSNAME=IBMUSER.TEST.QSAM1,DISP=SHR               
 000700 //SORTOUT   DD DSNAME=IBMUSER.TEST.QSAM4,DISP=(NEW,CATLG,DELETE),
 000800 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)       
 000900 //
原创粉丝点击