//****                                                                  00000010
//*   IMPORT T011 DATA FROM WEB DATABASE                                00001700
//*   TO MAINFRAME                                                      00001700
//*                                                                     00001700
//*   RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1)                         00001700
//**                                                                    00001700
//DTSBX415 PROC
//**                                                                    00001700
//***************************************************************       00001700
//*  COMBINE THE DEBIT MEMO (X150),
//*                  REFUND (X151),
//*             CREDIT MEMO (X152),
//***************************************  REMOVED      11/14/19 ZL1    00001700
//*&&       REMOVED  CASE TRACKING EVENT LOG (X155),
//*&&                    MAGNETIC MEDIA WAGE (X144) FILES.
//*******   NO LONGER NEEDED                            11/14/19 ZL1    00001700
//***************************************************************       00001700
//STEP0100 EXEC PGM=SORT,   COMBINE INPUT FILES
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X150,
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//         DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X151,
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//         DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X152,
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//*        DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X155,
//*            DISP=(OLD,KEEP,KEEP),
//*            UNIT=SYSDA,
//*            SPACE=(25600,(100,200),RLSE),
//*            DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//*        DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X144,
//*            DISP=(OLD,KEEP,KEEP),
//*            UNIT=SYSDA,
//*            SPACE=(CYL,(25,5),RLSE),
//*            DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=&&BX415IMP,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX415),DISP=SHR
//*
//***************************************************************       00001700
//*  BUILD T011 AND T025 TRANSACTIONS AND WRITE TO BTC FILE
//***************************************************************       00001700
//STEP0200 EXEC PGM=DTSBX415,
//             COND=(0,LT),
//             REGION=4096K
//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')
//***
//WEBTRN   DD  DSN=&&BX415IMP,
//             DISP=(OLD,DELETE,DELETE),
//             UNIT=SYSDA,
//             SPACE=(25600,(100,200),RLSE),
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=25600)
//*                                                                     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)
//DTSFBTCO DD  DSN=DOESTAX.&LVLNODE..BX415.BTC,
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..R309.RPT(+1),
//             DISP=(,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFWTRN DD  DSN=DOESTAX.&LVLNODE..MAG.W4FILE,
//**           DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(20,5)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//***************************************************************
//STEP0300 EXEC PGM=DTSBX159,    ADD NOTE PAD RECORD FOR CREDIT
//             COND=(0,LT),      PLACED ON HOLD
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWTC  DD  DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//DTSFBTCO DD  DSN=DOESTAX.&MSTNODE..BTC(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSIZ058 DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,DISP=SHR
//*
//*********************************************************************
//*
//* JOB       : DELETE THE FTP REFUND FILE
//*********************************************************************
//STEP0350 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//RFUNDEXP DD  DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//            DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*********************************************************************
//*                                                                |
//* JOB       : CREATE A NEW FTP FILE
//*                                                                |
//*********************************************************************
//*
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//RFUNDINP DD  DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
//*            DISP=(OLD,KEEP,KEEP),
//             DISP=(,CATLG,DELETE),
//             SPACE=(7500,(10,20),RLSE),
//             DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
//*
//*********************************************************************
//***************************************************************       00001700
//*  ALL FILES ARE CLEARED IN JOB BX202
//***************************************************************       00001700
//*
//*********************************************************************