Tuesday, 17 April 2012

Nested Procedure


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

No comments:

Post a Comment