//E00012T  JOB VICTQ001,&SYSUID,TIME=(2,0),CLASS=A,MSGCLASS=X,
//             MSGLEVEL=(1,1),NOTIFY=&SYSUID TYPRUN=SCAN
//MYLIB JCLLIB ORDER=(&SYSUID..JCLCRS.PROCLIB)
//* SET VARIABLES
//         SET NEW=&SYSUID..JCLCRS.NEWDD
//         SET SORTIN=VICTUSR.VSAM.DATA2
//         SET PDSDS=&SYSUID..JCLCRS.RESULTS
//         SET PROG1=IEFBR14
//         SET PROG2=SORT
//         SET PROG3=IEBGENER
//         SET TEMP1=&SYSUID..TEMP.TEMP1
//         SET TEMP2=&SYSUID..TEMP.TEMP2
//         SET TEMP3=&SYSUID..TEMP.TEMP3
//*PROGRAM
//TEMP     EXEC CTMP
//*CREATE HEADERS
//HEAD1    EXEC INSTR,TEMP=TEMP1
//COPY.SYSUT1 DD *
 *********************************************************************
                    HEADER1
 *********************************************************************
/*
//HEAD2    EXEC INSTR,TEMP=TEMP2
//SYSUT1 DD *
 *********************************************************************
                     HEADER2
 *********************************************************************
/*
//HEAD3   EXEC INSTR,TEMP=TEMP3
//COPY.SYSUT1 DD *
 ********************************************************************
                       HEADER2
 ********************************************************************
/*
//EXECPROC EXEC PCASE1,PROG1=&PROG1,PROG2=&PROG2,PROG3=&PROG3,
//        NEW=&NEW,PDSDS=&PDSDS,SORTIN=&SORTIN,TEMP1=&TEMP1,
//        TEMP2=&TEMP2,TEMP3=&TEMP3
//SORT.SYSIN DD *
     SORT FIELDS=(49,21,CH,A)
/*
//*SYSOUT     DD SYSOUT=*
//*TEST PROCEDURES
//*TEST1    EXEC PROC=CREATE,PROG=&PROG1,NEW=&NEWDD,LIKE=&SORTIN,
//*              PDSDS=&PDSDS
//*SYSOUT     DD SYSOUT=*
//*TEST2    EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPYTEST',NEW=&NEWDD,
//*              PDSDS=&PDSDS
//*SYSOUT     DD SYSOUT=*
**************************** Bottom of Data ****************************