DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ321.jcl

@@ -0,0 +1,54 @@
+//DTSRQ321 JOB (UI,4300,3400,T),BE321,CLASS=A,MSGCLASS=X,               00000010
+//       USER=#DOADTS,
+//       NOTIFY=ECNTSUP,
+//**     TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//******************************************************************
+//*
+//* JOB       : PENALTY ASSESSMENT PROCESS - ANNUAL
+//*
+//******************************************************************
+//*
+//*       1. RUN *BEFORE* A DAILY RUN
+//*
+//*       2. RUN DAILY RUN
+//*
+//*                THEN RUN ANNUAL FIRST DELINQ  (451)
+//* NO LONGER RAN..THEN RUN ANNUAL FINAL DELINQ  (453)
+//*        60 DAYS THEN RUN ANNUAL ESTIMATED RPT (455)
+//*
+//*    ****  THE CICS FILES MUST BE CLOSED FOR ALL THE ABOVE
+//*
+//*
+//*================================================================|
+//***
+// SET MSTNODE='PROD'
+// SET LVLNODE='PROD'
+// SET PENQTR='YR2023'
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//***
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//STEP0100 EXEC DTSUTVSM,
+//             BKUPGEN='(+1)'
+//*
+//*********************************************************************
+//STEP0100 EXEC DTSUEXT4,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QP',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ321),
+//         DISP=SHR
+//**                    (NOT NEEDED IF RUN IMMEDIATELY BEFORE
+//STEP0200 EXEC DTSRS321
+//***
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS
+//*                                         SPECIFIC OVERRIDES
+//**                             A REGULAR DAILY RUN )
+//*TEP0300 EXEC DTSUTVSM,
+//*         BKUPGEN='(+1)'
+//*
+//*