//TWSMIGP2 JOB 'CA7MIG','TWS',
//   NOTIFY=&SYSUID,MSGCLASS=V,CLASS=V,REGION=64M
//TOOLKIT  JCLLIB  ORDER=ID.TWSMIG.CNTL          TOOLKIT DATASET NAME
//VARS     INCLUDE MEMBER=$TOOLVAR            TOOLKIT VARIABLES
//*
//**********************************************************************
//*     STEP 1: DELETE OPCLIB DATASET                                  *
//**********************************************************************
//DELDS    EXEC PTWSDEL
//* ---- START IPROC
//*
//LTPCMP   PROC YEAR=,DAY=
//**********************************************************************
//* PASSPARM                                                           *
//**********************************************************************
//OPCAE435 EXEC PTSO,PARM.TSO='OPCAE435 COL=2 INCLUDE COND=(25,4,CH,EQ,
//             C''&DAY'')'
//OUTDD    DD DSN=&&SPARM,DISP=(NEW,PASS),
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=6160),
//            UNIT=&TUNIT,SPACE=(CYL,(1,1),RLSE)
//* -------------------------------------------------------------------
//*  SORT
//* -------------------------------------------------------------------
//SORT2    EXEC PSORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=&OPCAMIG.CMP.LTPPLAN
//SORTOUT  DD DSN=&OPCAMIG.CMP.LTPPLAN.D&YEAR&DAY,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=&PUNIT,SPACE=(CYL,(1,2),RLSE),
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80)
//SYSIN    DD DISP=SHR,DSN=&OPCAMIG.ANA.DATA(TWSMP2#4)
//         DD DISP=SHR,DSN=&&SPARM
//         DD DISP=SHR,DSN=&OPCAMIG.ANA.DATA(TWSMP2#5)
...
...
...
//**********************************************************************
//* RUN REXX COMPREXX
//**********************************************************************
//COMPARE  EXEC PTSO,PRM='RXCMPLTP'
//TSO.SYSPROC  DD DSN=&OPCAMIG.CMP.EXEC,DISP=SHR
//CA7PLAN  DD DISP=SHR,DSN=&OPCAMIG.CMP.CA7PLAN.D&YEAR.&DAY
//CMPLOG   DD DISP=SHR,DSN=&OPCAMIG.CMP.LOGFILE.D&YEAR.&DAY
//OPCPLAN  DD DISP=SHR,DSN=&OPCAMIG.CMP.LTPPLAN.D&YEAR.&DAY
//OPCAPPS  DD DISP=SHR,DSN=&OPCAMIG.OMA.NAPPLID
//NOERROR  DD DISP=SHR,DSN=&OPCAMIG.CMP.NOERROR
//CA7APPL  DD DUMMY
//         PEND
//*
//* ---- END   IPROC
//*
//* -------------------------------------------------------------------
//*  CREATE PLANS
//* -------------------------------------------------------------------
//D1028    EXEC LTPCMP,YEAR=04,DAY=1028
//D1029    EXEC LTPCMP,YEAR=04,DAY=1029