//****                                                                  00000010
//*   IMPORT EMPLOYER DATA FROM WEB DATABASE                            00001700
//*   TO MAINFRAME                                                      00001700
//*                                                                     00001700
//*   RUNS DAILY TAX UPDATE (DTSPDAY1)                                  00001700
//**                                                                    00001700
//DTSBX420 PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=SORT,  SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X102,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X104,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X106,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X108,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X110,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X120,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X130,DISP=SHR      00005000
//**       DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X132,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X140,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X144,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X145,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X149,DISP=SHR      00005000
//*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=&&WEBIMPRT,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(30720,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)                   00009000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX420),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX420,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//WEBREG   DD  DSN=&&WEBIMPRT,
//             DISP=(OLD,DELETE,DELETE)
//*                                                                     00001700
//X421BTC  DD  DSN=&&X421BTC,                                           00005000
//             DISP=(NEW,PASS,DELETE),                                  00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*                                                                     00001700
//X422BTC  DD  DSN=&&X422BTC,                                           00005000
//             DISP=(NEW,PASS,DELETE),                                  00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*                                                                     00001700
//X423BTC  DD  DSN=&&X423BTC,                                           00005000
//             DISP=(NEW,PASS,DELETE),                                  00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*                                                                     00001700
//DTSFBTCO DD  DSN=DOESTAX.&LVLNODE..BX420.BTC,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//WAGETEMP DD  DSN=&&WAGETMP,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,100),RLSE),
//             DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//WAGEOUT  DD  DSN=DOESTAX.&LVLNODE..WAGE.BX420.BTC,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//BX214422 DD  DSN=DOESTAX.&LVLNODE..BX422.BX214,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//BX214423 DD  DSN=DOESTAX.&LVLNODE..BX423.BX214,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//*
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..BX420.RPT,                         00409000
//**           DISP=(,PASS,DELETE),
//             DISP=(OLD,KEEP,KEEP),                                    00410000
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//STEP0300 EXEC PGM=SORT,  COMBINE BATCH XREF FILES
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR
//         DD  DSN=DOESTAX.&LVLNODE..BX423.BX214,DISP=SHR
//SORTOUT  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX420.XREF,
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(30000,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX214),DISP=SHR
//*
//*********************************************************************