Tuesday, 17 April 2012

Backward reference(vol)


//JOB1 JOB 1,'MCA'
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSNAME=KC03H0E.MCA7.PDS,VOL=SER=PACK12,
//    DISP=(NEW,CATLG),
//    SPACE=(TRK,(5,2,0))
//STEP2 EXEC PGM=IEFBR14
//DD2 DD DSNAME=KC03H0E.MCA8.PDS,
//    DISP=(NEW,CATLG),
//    SPACE=(TRK,(1,0,0)),VOL=REF=*.STEP1.DD1
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY

No comments:

Post a Comment