DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ615.jcl

@@ -0,0 +1,40 @@
+//DTSRQ615 JOB (UI,4300,3400,T),PROD.BE615,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//         USER=#DOADTS,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+//****
+//****
+// SET LVLNODE='PROD'
+// SET MSTNODE='PROD'
+// SET LHOLD='YES'
+//****
+//*    CREATE FIELD ASSIGNMENTS FOR DELINQUENCY (QUARTERLY)
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*      BACKUP REQUIRED - UPDATES HEADER, MFAS, MEVL, MPRF.
+//**
+//********************************************************************
+//*  REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES
+//********************************************************************
+//*
+//STEP0050 EXEC DTSUTVSM,
+//             BKUPGEN='(+1)'
+//*
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR',
+//             PREBACK='Y'
+//STEP0100.EXTPARM DD *
+615,   ,
+/*
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT615R1 DD  HOLD=NO
+//STEP0100.RPT907R1 DD  HOLD=YES
+//STEP0100.RPT907R2 DD  HOLD=YES
+//STEP0100.RPT980R1 DD  HOLD=YES
+//*