Tuesday, 17 April 2012

IEBEDIT


IEBEDIT
//MYJOB JOB                                  
//STEP1 EXEC PGM=IEBEDIT                    
//SYSPRINT DD SYSOUT=*                      
//SYSUT1   DD DSN=KC03H0E.MCA3.PDS(A),DISP=SHR
//SYSUT2   DD SYSOUT=(*,INTRDR)              
//SYSIN    DD *                              
       EDIT TYPE=INCLUDE,STEPNAME=(STEP2,STEP3)
/*                                          
//                                          

Content in member a
//PRINT JOB                                                  
//STEP1 EXEC PGM=IEFBR14                                    
//DD1 DD DSN=KC03H0E.A8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP2 EXEC PGM=IEFBR14                                    
//DD1 DD DSN=KC03H0E.B8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP3 EXEC PGM=IEFBR14                                    
//DD1 DD DSN=KC03H0E.C8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP4 EXEC PGM=IEFBR14                                    
//DD1 DD DSN=KC03H0E.D8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP5 EXEC PGM=IEFBR14                                    
//DD1 DD DSN=KC03H0E.E8.M7,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))

No comments:

Post a Comment