DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ707.jcl

@@ -0,0 +1,57 @@
+//DTSRQ707 JOB (UI,4300,3400,T),PROD.BD707,                             00000010
+//          CLASS=P,MSGCLASS=X,                                         00000010
+//          NOTIFY=ECNTSUP,
+//          REGION=0K
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****                                                                  00001700
+//    SET LVLNODE='DEVL'                                                00001700
+//    SET MSTNODE='PROD'                                                00001700
+//    SET   LDEST=U@PRT65                                               00001700
+//    SET   LHOLD='YES'                                                 00001700
+//    SET    LCYR='CY2003'                                              00001700
+//****                                                                  00001700
+//**   DTS BAD ADDRESSES BY ZIP CODE LIST.                              00001700
+//****                                                                  00001700
+//* EACH QUARTER TAX STAFF PREPARES A SPREADSHEET(S) WITH BAD
+//* ADDRESSES FROM RETURNED UC30'S.  THESE FILES WILL BE UPLOADED
+//* AND PROCESSED BY THIS PROGRAM (& CREATES A FIELD ASSIGNMENT
+//* (MFAS) FOR EACH EMPLOYER WITH A DC ADDRESS AND 3 OR MORE REPORTS
+//* BEING PURSUED).
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//*                     (NO UPDATES PERFORMED - NO BACKUP NEEDED)
+//*                                                                     00001700
+//STEP0200 EXEC PGM=DTSBD707,    COMPARE MTAD ADDRESS FROM FUTA ADDRESS
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//**                            /* CONCATENATE INPUT FILES AS NEEDED    00001700
+//DTSBADAD DD  DSN=DOESTAX.CONV.BADADDR,DISP=SHR                        00005000
+//**                            /* THIS FILE PRODUCED BY DTSRQ701       00001700
+//DTSFRQST DD DSN=DOESTAX.CONV.FUTACERT.&LCYR.,                         00005000
+//            DISP=SHR                                                  00005000
+//**                            /* WORK FILE FOR SORT & RPT             00001700
+//REPORTF1 DD  DSN=&&BADADR,
+//             DISP=(NEW,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(8192,(1000,1000),RLSE),
+//             DCB=(RECFM=FB,LRECL=270,BLKSIZE=270)
+//**                                                                    00001700
+//DTSMSTR  INCLUDE MEMBER=DTSIMSTR                                      00001600
+//**                                                                    00001700
+//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//**
+//**                          DUTAS BAD ADDRESSES BY ZIP CODE           00001700
+//RPT707R1 DD  SYSOUT=O,
+//             DEST=&LDEST.,
+//             HOLD=&LHOLD
+//**
+//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
+//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
+//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
+//****
+//*