//DTSRQ720 JOB (UI,4300,3400,T),PROD.BE720,
//         CLASS=P,MSGCLASS=X,
//         NOTIFY=ECNTZL1,
//****     TYPRUN=SCAN,
//         USER=#DOADTS,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*****************************************************************
//** CHANGE PARMS BEFORE RUNNING JOB                            ***
//*****************************************************************
//   SET TPSYRQ='QTR252'  <<<< CHANGE BEFORE RUNNING JOB
//   SET LVLNODE='PROD' //// CHANGE PARMS BELOW TO SPECIFY QUARTER
//   SET MSTNODE='PROD' //// CHANGE PARMS BELOW TO SPECIFY QUARTER
//   SET   LHOLD='YES'
//******************************************************************
//*  BUILDS UNIVERSE FOR TPS DEBITS RATED AND SELF INS            *
//*
//**** RATED EMPLOYERS
//*  THE UNIVERSE MUST BE BUILT AT THE END OF QUARTER PROCESSING  *
//*  PERIOD FOR RATED EMPLOYERS.  THE END OF PROCESSING FOR A     *
//*  GIVEN QUATER WAS REDEFINED AS THE DATE QUATER WAS DECLARED   *
//*  DELINQUENT IN MEETING HELD WITH TAX CHIEF AND TAX COMPLIANCE *
//*  OFFICER ON 9/6/17. PRIOR TO THIS THE END PROCESSING PERIOD   *
//*  WAS DEFINED AS THE REPORT DUE DATE, 30 DAYS AFTER QUATER END *
//*  DATE.                                          07/09/17  ZL1 *
//*
//**** SELF INSURED EMPLOYERS
//*  THE UNIVERSE MUST BE BUILT AT THE END OF THE GRACE PERIOD    *
//*  OF THE SI TAX DUE DATE. THE GRACE PERIOD IS 5 TO 7 DAYS AFTER*
//*  REPORT DUE DATE. THE SI ARE BILLED FOR CHARGES ON THE 1ST    *
//*  WORKDAY AFTER THE QUARTER ENDS.                              *
//*                                                 07/09/17  ZL1 *
//*****************************************************************
//*  ON REQUEST REPORT DTSBR720 -                                 *
//*     RPT720A - DB/BILLINGS RATED EMPLYRS (CONTRIBUTIONS)
//*               (RPT720)
//*     RPT720B - DB/BILLINGS  SI   EMPLYRS (REIMBURSEMENTS)
//*               (RPT721)
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//**                      NO BACKUP NEEDED BEFORE THIS REPORT
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR'
//**
//STEP0100.EXTPARM DD *
720,070125,100825
//*                        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.RPT722R1 DD DUMMY
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*