Tuesday, April 17, 2012

to implement the Nested Procedures

//JOB1 JOB
//PROC1 PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H11.X0.Y0,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
// PEND
//PROC2 PROC
//STEP2 EXEC PROC1
//STEP3 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H11.X0.Y0,DISP=(OLD,DELETE,DELETE)
// PEND
//STEP4 EXEC PROC2

No comments:

Post a Comment