DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ530.jcl

@@ -0,0 +1,35 @@
+//DTSRQ530 JOB (UI,4300,3400,T),PROD.BE530.NO-UPDT,CLASS=P,             00000010
+//       MSGCLASS=X,                                                    00000010
+//       NOTIFY=ECNTJP2,
+//****   USER=#DOADTS,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET LVLNODE='PROD'
+//    SET   LHOLD='YES'
+//****
+//*         RPT530R1  = ETA-205 REPORT   (PARM CCYR = 1ST OF 3 YEARS)
+//****        AVGE EMPLYR TAX RATES            (USUALLY CURRENT YEAR)
+//*                                        NO BKP NEEDED FOR THIS RPT
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//STEP0100 EXEC DTSUEXT,                    BD400 EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='N'
+//STEP0100.EXTPARM  DD  *
+/*
+//**                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//**                                       REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//**                                       SPECIFIC OVERRIDES
+//STEP0100.RPT530R1 DD  SYSOUT=Z,COPIES=2,
+//             DEST=&LDEST.,
+//             HOLD=&LHOLD.
+//STEP0100.RPT980R1 DD HOLD=YES
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
+//*                                                                     00640000
+//*