Tuesday, 25 June 2013

Executing the particular steps using IEBEDIT


//TRNG111A JOB CLASS=C,NOTIFY=TRNG111          
//STEP1 EXEC PGM=IEFBR14                      
//AA DD DSN=TRNG111.AA.DATA,DISP=(NEW,CATLG),  
// SPACE=(TRK,(1,1))                          
//STEP2 EXEC PGM=IEFBR14                      
//BB DD DSN=TRNG111.BB.DATA,DISP=(NEW,CATLG),  
// SPACE=(TRK,(1,1))                          
//STEP3 EXEC PGM=IEFBR14                      
//CC DD DSN=TRNG111.CC.DATA,DISP=(NEW,CATLG),  
// SPACE=(TRK,(1,1))                          
//STEP4 EXEC PGM=IEFBR14                      
//AD DD DSN=TRNG111.DD.DATA,DISP=(NEW,CATLG),  
// SPACE=(TRK,(1,1))                          



RUN PGMX

//TRNG111X JOB CLASS=A,NOTIFY=TRNG111                  
//S1 EXEC PGM=IEBEDIT                                  
//SYSPRINT DD SYSOUT=*                                  
//SYSUT1 DD DSN=TRNG111.NEW.JCL(PGMX),DISP=SHR          
//SYSUT2 DD SYSOUT=(*,INTRDR)                          
//SYSIN DD *                                            
  EDIT START=TRNG111A,TYPE=INCLUDE,STEPNAME=(STEP1,STEP3)

No comments:

Post a Comment