GDG

最新推荐文章于 2022-09-05 18:50:23 发布

valueleaf0705

最新推荐文章于 2022-09-05 18:50:23 发布

阅读量427

点赞数 1

文章标签： delete class

本文链接：https://blog.csdn.net/valueleaf0705/article/details/6513184

版权

//ZLP      JOB ZLP,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=IBMUSER
//*JOBCARD
//STEP1 EXEC PGM=IDCAMS
//GDGMODEL DD DSN=IBMUSER.GDG02,
//      DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(0)),
//      DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG (NAME(GDG02) LIMIT(100))
//
//STEP2 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=IBMUSER.TEST.G905.PS7,DISP=SHR
//SYSUT1 DD DSN=ST023.TEST.GDG(+1),
//     DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(5,5)),
//     DCB=GDG02
//SYSPRINT DD SYSOUT=*
/*