//****                                                                  00000010
//*   IMPORT EMPLOYER DATA FROM WEB DATABASE                            00001700
//*   TO MAINFRAME                                                      00001700
//*                                                                     00001700
//*   RUNS DAILY PRIOR TO 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.X140,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X144,DISP=SHR      00005000
//         DD  DSN=ECNTSUP.DOESTAX.&IMPNODE..FROMWEB.X145,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=4096K
//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
//CURRBTCH DD  DSN=DOESTAX.&LVLNODE..CURRBTCH,
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(80,(80,80),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//*
//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=(SYS3.MODEL,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.BTC(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSFVRO1 DD  DSN=&&BX420RPT,
//             DISP=(,PASS,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//STEP0300 EXEC PGM=SORT,                          SORT REPORT RECORDS   00405000
//             COND=(0,LT),                                             00406000
//             REGION=0K                                                00407000
//SYSOUT   DD  SYSOUT=*                                                 00408000
//SORTIN   DD  DSN=&&BX420RPT,                                          00409000
//             DISP=(OLD,DELETE,DELETE)                                 00410000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00420000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00430000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00440000
//SORTOUT  DD  DSN=&&SRTRPT,                                            00450000
//             DISP=(,PASS,DELETE),                                     00460000
//             UNIT=SYSDA,                                              00470000
//             SPACE=(8192,(1000,1000),RLSE),                           00480000
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00490000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00500001
//****                                                                  00510000
//*                        REPORT GENERATION                            00520000
//STEP0400 EXEC PGM=DTSBD800,                                           00530000
//             COND=(0,LT)                                              00540000
//SYSOUT   DD  SYSOUT=*                                                 00550000
//SYSABOUT DD  SYSOUT=*                                                 00560000
//SYSUDUMP DD  SYSOUT=*                                                 00570000
//***                                                                   00580000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00580000
//***                                                                   00580000
//PARMIN   DD  DUMMY                                                    00590000
//***                                                                   00600000
//ATLSTIN  DD  DUMMY                                                    00610000
//***                                                                   00620000
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)                    00630000
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,                 00640000
//             AMP=('BUFNI=5,BUFND=10')                                 00650000
//**                                                                    00660000
//***   EDIT WEB ERRORS REPORT                                          00670000
//**                                                                    00660000
//RPT140R1 DD  SYSOUT=Z,HOLD=&LVDHOLD.,                                 00680000
//             DEST=LOCAL                                               00690000
//**                                                                    00700000
//RPT980R1 DD  SYSOUT=Q,COPIES=2,                                       00740000
//             HOLD=&LVDHOLD.,                                          00750000
//             DEST=LOCAL                                               00760000
//*********************************************************************