DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ718.jcl

@@ -0,0 +1,39 @@
+//DTSRQ718 JOB (UI,4300,3400,T),PROD.BE718,CLASS=P,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//         USER=#DOADTS,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//   SET TPSYRQ='YR2025' <<<<  CHANGE YEAR QTR BEFORE RUNNING JOB
+//   SET LVLNODE='PROD'                CHANGE PARM BELOW.
+//   SET   LHOLD='NO'
+//*******************************************************************
+//*    ON REQUEST REPORT DTSBR718 - CHANGE PARM FOR YEARLY RUN      *
+//*                      TPS FIELD AUDIT RECORDS
+//** JOB WILL RUN 1ST WEEK IN JAN TO COVER 4 QUARTERS OF PRIOR YEAR *
+//*************** CHANGE REQUESTED BY OCIM AND PROGRAM          ZL1 *
+//*******************************************************************
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD *
+718,010125,123125         <<<<<<<< CHANGE PARM BEFORE RUNNING>>>>>>>
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSTPRPT
+//STEP0100.RPT715R1 DD DUMMY
+//STEP0100.RPT716R1 DD DUMMY
+//STEP0100.RPT717R1 DD DUMMY
+//STEP0100.RPT719R1 DD DUMMY
+//STEP0100.RPT720R1 DD DUMMY
+//STEP0100.RPT720R2 DD DUMMY
+//STEP0100.RPT722R1 DD DUMMY
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//*