DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ720.jcl

@@ -0,0 +1,60 @@
+//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..PROCLIB
+//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
+//*