DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ722.jcl

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