DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ451.jcl

@@ -0,0 +1,58 @@
+//DTSRQ451 JOB (UI,4300,3400,T),BE451,CLASS=A,MSGCLASS=X,               00000010
+//       NOTIFY=ECNTSUP,
+//         USER=#DOADTS,
+//***    TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//******************************************************************
+//*
+//* JOB       : FIRST DELINQUENCY  PROCESS - ANNUAL
+//*             RUN JOB DTSRQ321 FOR PENALTY ASSESSMENT
+//*
+//******************************************************************
+//*
+//*       1. RUN *BEFORE* A DAILY RUN
+//*
+//*
+//*       2. THE CICS FILES MUST BE CLOSED FOR ALL THE ABOVE
+//*
+//*
+//*================================================================|
+//***
+// SET ACHYEAR='FY2009'
+// SET MSTNODE='PROD'
+// SET LVLNODE='PROD'
+// SET PGMNODE='PROD'
+// SET LHOLD='YES'
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB
+//***
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*TEP0100 EXEC DTSUTVSM,
+//*           BKUPGEN='(+1)'
+//*********************************************************************
+//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QP',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+451
+/*
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//***
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT716R1 DD  DSN=DOESTAX.&LVLNODE..ANNUAL.RPT716,DISP=SHR
+//*TEP0100.RPT451R1 DD  HOLD=YES
+//*TEP0100.RPT452R1 DD  HOLD=YES
+//STEP0100.RPT907R1 DD  HOLD=YES
+//STEP0100.RPT907R2 DD  HOLD=YES
+//STEP0100.RPT980R1 DD  HOLD=YES
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
+//*                                                                     00640000
+//STEP0400 EXEC DTSAR451       /ARCHIVE REPORT RECORDS 451
+//*
+//STEP0500 EXEC DTSUTVSM,
+//            BKUPGEN='(+1)'
+//