IEBEDIT
//MYJOB JOB
//STEP1 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=KC03H0E.MCA3.PDS(A),DISP=SHR
//SYSUT2 DD SYSOUT=(*,INTRDR)
//SYSIN DD *
EDIT TYPE=INCLUDE,STEPNAME=(STEP2,STEP3)
/*
//
Content in member a
//PRINT JOB
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H0E.A8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP2 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H0E.B8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP3 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H0E.C8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP4 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H0E.D8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP5 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H0E.E8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
No comments:
Post a Comment