//DTSRQ722 JOB (UI,4300,3400,T),PROD.BE722,CLASS=P,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//         USER=#DOADTS,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//***********************************************************
//******* CHANGE PARM BEFORE RUNNING THIS JOB             ***
//***********************************************************
//  SET TPSYRQ='QTR20251'
//  SET LVLNODE='PROD'
//  SET   LHOLD='NO'
//**
//**
//** >>>>>>>>>>>>> BUILD CREDITS/REFUND UNIVERSE FOR TPS  <<<<<<<<<<<<
//** JOB SCHEDULE TO RUN ON LAST WORK DAY IN NOVEMBER
//** (DELINQUENCY DATE FOR 3RD QUARTER)                   10/20/17 ZL1
//**
//**
//*    ON REQUEST REPORT DTSBR722 -                                 *
//*            RPT722  - CR REFUNDS (RATED EMPLYRS RECORDS)
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR'
//**
//******* CHANGE PARM DTSRQ722 BEFORE RUNNING THIS JOB
//**
//STEP0100.EXTPARM DD *
722,040125,053125
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*                        REPORT GENERATION
//STEP0300 EXEC DTSTPRPT
//STEP0100.RPT715R1 DD DUMMY
//STEP0100.RPT716R1 DD DUMMY
//STEP0100.RPT717R1 DD DUMMY
//STEP0100.RPT718R1 DD DUMMY
//STEP0100.RPT719R1 DD DUMMY
//STEP0100.RPT720R1 DD DUMMY
//STEP0100.RPT720R2 DD DUMMY
//**STEP0100.RPT722R1 DD HOLD=YES
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*