//****                                                                  00000010
//*   EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS, RATE)        00001700
//*   FROM TAX MASTER FILES FOR USE IN A BENEFITS WEB APPLICATION       00001700
//*                                                                     00001700
//*   RUNS AS PART OF THE WEEK-END PROCESS                              00001700
//**                                                                    00001700
//DTSBX475 PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//ADRFILE  DD DSN=UI.TAX.PROD.WEEKLY.EXTRACT,
//            DISP=(OLD,DELETE,DELETE)
//**                                                                    00001700
//STEP0200 EXEC PGM=DTSBX475,
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//*                                                                     00001700
//ADRFILE  DD  DSN=UI.TAX.PROD.WEEKLY.EXTRACT,                          00005000
//           DISP=(NEW,CATLG,DELETE),      //* TO START SERIES          00006000
//*            DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(30240,(3000,2000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=432,BLKSIZE=30240)                   00009000
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//*********************************************************************