DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ127.jcl

@@ -0,0 +1,38 @@
+//DTSRQ127 JOB (UI,4300,3400,T),PROD.BE127.NO-UPDT,CLASS=A,             00000010
+//       MSGCLASS=X,                                                    00000010
+//       NOTIFY=ECNTZL1,
+//       USER=#DOADTS,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+//****
+//    SET LVLNODE='PROD'
+//    SET MSTNODE='PROD'
+//    SET   LHOLD='YES'
+//****                                                             |
+//****  ANNUAL FILERS ADMIN OUT PROCESS - RUN BEFORE ANNUAL LATE PEN
+//****                                                             |
+//* RPT127R1  = '8 QUARTERS AND 0 WAGE REPORTS FILED           ZL1
+//****                                                             |
+//*================================================================|
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*********************************************************************
+//STEP0100 EXEC DTSUEXT,                    BD400 EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//*                                         031/YYM IN SYSIN
+//STEP0100.EXTPARM  DD  *
+127,ECNTSUP ,221,234,Y,
+/*
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//*STEP0200 EXEC DTSSR332
+//***
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//*                                         SPECIFIC OVERRIDES
+//STEP0100.RPT117R2 DD  HOLD=YES
+//STEP0100.RPT980R1 DD  HOLD=YES
+//*