//****                                                                  00000010
//*   EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES                    00001700
//*   INTO COMMA-SEPARATED FILES FOR WEB DATABASE                       00001700
//*                                                                     00001700
//*   RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1)                        00001700
//**                                                                    00001700
//DTSBX432 PROC
//**                                                                    00001700
//COPY2    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=ECNTSUP.DOESTAX.CONV.EMPNO.FTP.X101,
//            DISP=SHR
//INDD02   DD DSN=DOESTAX.CONV.FROMWEB.X101,DISP=SHR
//SYSIN    DD *
   REPRO INFILE(INDD01) OUTFILE(INDD02)
/*
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',   SORT X101 FILE
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=DOESTAX.CONV.FROMWEB.X101,
//             DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(6,(1000,1000),RLSE),                              00008000
//             DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000)                     00009000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=&&DTSIX101,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(25600,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000)                     00009000
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX410),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSSC432,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//BX410TMP DD  DSN=&&X410TMP,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
//*
//EXPBX100 DD  DUMMY                                                    00005000
//**           DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//**           UNIT=SYSDA,                                              00007000
//**           SPACE=(90,(1000,1000),RLSE),                             00008000
//**           DCB=(RECFM=FB,LRECL=30,BLKSIZE=90)                       00009000
//*                                                                     00001700
//IMPBX101 DD  DSN=&&DTSIX101,                                          00005000
//             DISP=(OLD,DELETE,DELETE),                                00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(6,(1000,1000),RLSE),                              00008000
//*            SPACE=(256,(1000,1000),RLSE),                            00008000
//             DCB=(RECFM=FB,LRECL=6,BLKSIZE=30000)                     00009000
//*            DCB=(RECFM=VB,LRECL=256,BLKSIZE=25600)                   00009000
//*                                                                     00001700
//EXPBX102 DD  DUMMY                                                    00005000
//**           DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//**           UNIT=SYSDA,                                              00007000
//**           SPACE=(29000,(1000,1000),RLSE),                          00008000
//**           DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000)                    00009000
//*                                                                     00001700
//EXPBX104 DD  DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104,
//**           DISP=(NEW,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(21600,(1000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=119,BLKSIZE=23800)
//*
//EXPBX106 DD  DUMMY                                                    00005000
//**           DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//**           UNIT=SYSDA,                                              00007000
//**           SPACE=(26500,(1000,1000),RLSE),                          00008000
//**           DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500)                    00009000
//*                                                                     00001700
//EXPBX108 DD  DUMMY
//**           DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//**           UNIT=SYSDA,
//**           SPACE=(24000,(1000,1000),RLSE),
//**           DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000)
//*
//EXPBX110 DD  DUMMY                                                    00005000
//**           DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//**           UNIT=SYSDA,                                              00007000
//**           SPACE=(24900,(1000,1000),RLSE),                          00008000
//**           DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900)                   00009000
//*                                                                     00001700
//EXPBX120 DD  DUMMY
//**           DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//**           UNIT=SYSDA,
//**           SPACE=(30800,(1000,1000),RLSE),
//**           DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800)
//*
//EXPBX131 DD  DUMMY
//**           DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//**           UNIT=SYSDA,
//**           SPACE=(28000,(1000,1000),RLSE),
//**           DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000)
//*
//EXPBX140 DD  DUMMY
//**           DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//**           UNIT=SYSDA,
//**           SPACE=(28600,(1000,1000),RLSE),
//**           DCB=(RECFM=FB,LRECL=143,BLKSIZE=28600)
//*
//EXPBX141 DD  DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X141,
//**           DISP=(NEW,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(CYL,(50,10),RLSE),
//             DCB=(RECFM=FB,LRECL=102,BLKSIZE=30600)
//*
//EXPBX142 DD  DUMMY
//**           DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//**           UNIT=SYSDA,
//**           SPACE=(CYL,(10,10),RLSE),
//**           DCB=(RECFM=FB,LRECL=54,BLKSIZE=31320)
//*
//EXPBX145 DD  DUMMY
//**           DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//**           UNIT=SYSDA,
//**           SPACE=(30720,(1000,1000),RLSE),
//**           DCB=(RECFM=FB,LRECL=69,BLKSIZE=27600)
//*
//STEP0300 EXEC PGM=IDCAMS,           COPY X104 FILE TO GDG
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DSN=DOESTAX.CONV.ESSP.DAILY.FTP.X104,
//             DISP=SHR
//**           UNIT=SYSDA,
//**           SPACE=(8192,(100,200),RLSE),
//**           DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//OUTDD01  DD  DSN=DOESTAX.CONV.ESSP.DAILY.OUT.X104(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(23800,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=119,BLKSIZE=2380)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*********************************************************************