//****                                                                  00000010
//*   EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS)              00001700
//*   FROM TAX MASTER FILES FOR USE IN BENEFITS APPLICATIONS            00001700
//*                                                                     00001700
//*   RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1)                        00001700
//**                                                                    00001700
//DTSBX476 PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=DTSBX476,
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//*                                                                     00001700
//TAXFILE  DD  DSN=&&TAXFILE,                                           00005000
//             DISP=(NEW,PASS,DELETE),                                  00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(31400,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=314,BLKSIZE=31400)                   00009000
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//****************************************************************      00001700
//STEP0200 EXEC PGM=IDCAMS                        DELETE AND DEFINE     00740053
//SYSPRINT DD  SYSOUT=*                                                 00750053
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDD476),            00760053
//             DISP=SHR                                                 00770053
//*                                                                     00780053
//STEP0700 EXEC PGM=IDCAMS                        LOAD VSAM FILE        00740053
//SYSPRINT DD  SYSOUT=*                                                 00750053
//INDD01   DD  DSN=&&TAXFILE,
//             DISP=(OLD,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(31400,(8000,5000),RLSE),
//             DCB=(RECFM=FB,LRECL=314,BLKSIZE=31400)
//OUTDD01  DD  DSN=UI.PROD.TEMP.TAXCOPY,DISP=SHR,                       00850055
//             AMP=('BUFNI=5,BUFND=30')                                 00860055
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),             00760053
//             DISP=SHR                                                 00770053
//*********************************************************************
//*********************************************************************