PCASE1

//PCASE1 PROC PROG1=PROG,PROG2=PROG,PROG3=PROG,
//       NEW=NEWDD,SORTIN=SORTDD,PDSDS=PDSDD,TEMP1=TEMP,
//       TEMP2=TEMP,TEMP3=TEMP
//* CREATE NEW DATASET
//CREATE  EXEC PROC=CREATE,PROG=&PROG1,NEW=&NEW,LIKE=&SORTIN,
//             PDSDS=&PDSDS
//* SORT A GIVEN DS AND PUT IT IN THE NEW DS
//SORT    EXEC PGM=&PROG2
//SYSOUT    DD SYSOUT=*
//SORTIN    DD DSN=&SORTIN,DISP=SHR
//SORTOUT   DD DSN=&NEW,DISP=(MOD,CATLG,DELETE)
//SYSIN     DD DUMMY
//COPY1   EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPY1',TEMP=&TEMP1,
//             PDSDS=&PDSDS
//COPY2   EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPY2',TEMP=&TEMP2,
//             PDSDS=&PDSDS
//COPY3   EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPY3',TEMP=&TEMP3,
//             PDSDS=&PDSDS
//DELETE  EXEC DELETE