//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..PROCS.BATCH.LIB                       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)
//****
//*