Copy using instream procedure

//IEJOB JOB
//MYPROC PROC
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=KC03H0E.FINAL.PDS(M1)
//SYSUT2 DD DISP=SHR,DSN=KC03H0E.FINAL.PDS(M2)
//         PEND
//STEP1 EXEC MYPROC
//SYSIN DD *



M1

//CATLG PROC
//STEP1    EXEC  PGM=IEFBR14
//DD1 DD    DSN=KC03H0E.Z2.Z2,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//SYSPRINT DD SYSOUT=*