Tuesday, 17 April 2012

Copy members in one pds to another


//MYJOB JOB                          
//MYPROC PROC                        
//STEP1 EXEC PGM=IEBCOPY              
//SYSPRINT DD SYSOUT=*                
//SYSUT1 DD DISP=SHR,DSN=KC03H0E.X.Y  
//SYSUT2 DD DISP=SHR,DSN=KC03H0E.Y.X  
//         PEND                      
//STEP1 EXEC MYPROC                  
//SYSIN DD *        

No comments:

Post a Comment