DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ616.jcl

@@ -0,0 +1,33 @@
+//DTSRQ616 JOB (UI,4300,3400,T),PROD.BE616,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTZL1,
+//         USER=#DOADTS,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+//****
+//****
+// SET LVLNODE='PROD'
+// SET MSTNODE='PROD'
+//****
+//****
+//*    CREATE FIELD ASSIGNMENTS FOR DELINQUENCY (ANNUAL FILERS)
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*      BACKUP REQUIRED - UPDATES HEADER, MFAS, MEVL, MPRF.
+//**
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR',
+//             PREBACK='Y'
+//STEP0100.EXTPARM DD *
+616,   ,
+/*
+//*                        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
+//*