Tuesday, 17 April 2012

Backward reference(dcb)


//JOB1 JOB 1,'MCA'                          
//STEP1 EXEC PGM=IEFBR14                    
//DD1 DD DSN=KC03H0E.MKU.CC,DISP=(NEW,CATLG),
// SPACE=(TRK,(10,2,1)),                    
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)      
//STEP2 EXEC PGM=IEFBR14                    
//DD2 DD DSN=KC03H0E.MKU.CC1,DISP=(NEW,CATLG),
// SPACE=(TRK,(1,1,0)),                      
// DCB=*.STEP1.DD1    

No comments:

Post a Comment