COPY Data-set Members using Procedure

Procdure Code

//D3PROC1 PROC            
//STEP1 EXEC PGM=IEBCOPY  
//SYSPRINT DD SYSOUT=&C1  
//ABC DD DSN=&XXX,DISP=SHR
//XYZ DD DSN=&YYY,DISP=SHR
//SYSIN DD DUMMY          


Job Code

//TRNG111P JOB NOTIFY=TRNG111                                  
//       JCLLIB ORDER=TRNG352.NEW.JCL                          
//S1 EXEC D3PROC1,C1=*,XXX=TRNG111.NEW.JCL,YYY=TRNG111.JCL.TEST
//STEP1.SYSIN DD *                                              
     COPY INDD=ABC,OUTDD=XYZ