DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ423.jcl

@@ -0,0 +1,42 @@
+//DTSRQ423 JOB (UI,4300,3400,T),PROD.BE423,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//****     NOTIFY=ECNTZL1,
+//****     USER=#DOADTS,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//   SET LVLNODE='PROD'
+//   SET   LHOLD='YES'
+//****
+//*    ON REQUEST REPORT DTSBR423 -
+//*                      PRIOR DELINQUENT LIST
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR'
+//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ423),
+//         DISP=SHR
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*
+//STEP0300 EXEC DTSRQRPT
+//**                      PRIOR DELINQUENT LIST BY FLD REP - 1 E
+//STEP0100.RPT423R1 DD  SYSOUT=*,HOLD=&LVDHOLD.
+//**                      PRIOR DELINQUENT LIST BY FLD REP - 2 E
+//STEP0100.RPT423R2 DD  SYSOUT=*,HOLD=&LVDHOLD.
+//**                      PRIOR DELINQUENT LIST BY FLD REP - 3+
+//STEP0100.RPT423R3 DD  SYSOUT=*,HOLD=&LVDHOLD.
+//**                           UNUSUAL CONDITIONS ENCOUNTERED RE
+//STEP0100.RPT907R1 DD  SYSOUT=*,HOLD=&LVDHOLD.
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//STEP0100.RPT907R2 DD  DUMMY
+//**                           CONTROL REPORT SUMMARY
+//STEP0100.RPT980R1 DD  SYSOUT=*,HOLD=&LVDHOLD.
+//*
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//*