DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ737.jcl

@@ -0,0 +1,41 @@
+//BCGBQ737 JOB (UI,4300,3400,T),COMP.WG.TAX,CLASS=P,MSGCLASS=X,
+//         NOTIFY=DCGGAB,
+//****     TYPRUN=SCAN,
+//****     USER=OPCSUB,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//   SET LVLNODE='PROD'
+//   SET LVDHOLD='YES'
+//   SET   LHOLD='YES'
+//   SET  UINODE='PROD'
+//****
+//*    ON REQUEST REPORT DTSBR737 -
+//*                      WAGE FILE - TAX FILE COMPARE
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0100 EXEC DTSUX737,
+//             YRQ='081',           (CAL. YR THRU THIS QTR)
+//             TAMT1='90000',       (BEGIN 1ST RANGE TO REPORT)
+//             TAMT2='95000',       (BEGIN 2ND RANGE)
+//             TAMT3='99999'        (BEGIN 3RD RANGE)
+//*
+//*                        REPORT RECORD SORT
+//STEP0200 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//STEP0100.RPT737R1 DD  SYSOUT=(*)
+//*TEP0100.RPT737R1 DD  SYSOUT=(V,DTS737R1),HOLD=&LVDHOLD.
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//*TEP0100.RPT907R1 DD  SYSOUT=(V,DTS907R1),HOLD=&LVDHOLD.
+//STEP0100.RPT907R1 DD  SYSOUT=(*)
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//STEP0100.RPT907R2 DD  DUMMY
+//**                           CONTROL REPORT SUMMARY
+//STEP0100.RPT980R1 DD  SYSOUT=(V,DTS980R1),HOLD=&LVDHOLD.
+//*