//****                                                                  00000010
//*   IMPORT X431 CASE TRACKING DATA FROM WEB DATABASE                  00001700
//*   TO MAINFRAME                                                      00001700
//*                                                                     00001700
//*   RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1)                         00001700
//**                                                                    00001700
//DTSBX431 PROC
//**                                                                    00001700
//***************************************************************       00001700
//*  BUILD T003 TRANSACTIONS AND WRITE TO BTC FILE
//***************************************************************       00001700
//STEP0200 EXEC PGM=DTSBX431,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//WEBDLQSI DD  DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.X431,
//             DISP=(OLD,KEEP,KEEP),
//*            DISP=MOD,
//             UNIT=SYSDA,
//             SPACE=(CYL,(3,3),RLSE),
//             DCB=(RECFM=FB,LRECL=1246,BLKSIZE=24920)
//*                                                                     00001700
//DTSFBTCO DD  DSN=DOESTAX.&MSTNODE..BTC(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//***************************************************************       00001700
//*  CLEAR THE INPUT FILES
//***************************************************************       00001700
//STEP0300 EXEC PGM=IDCAMS,          INITIALIZE X431 FILE
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DUMMY
//OUTDD01  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X431,
//             DISP=(OLD,KEEP,KEEP)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*
//*
//*********************************************************************