DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSZX415

@@ -0,0 +1,33 @@
+//****                                                                  00000010
+//*   IMPORT T011 DATA FROM WEB DATABASE                                00001700
+//*   TO MAINFRAME                                                      00001700
+//*                                                                     00001700
+//*   RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1)                         00001700
+//**                                                                    00001700
+//DTSBX415 PROC
+//**                                                                    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=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX415,
+//**           DISP=(NEW,CATLG,CATLG),
+//             DISP=(OLD,KEEP,KEEP),
+//             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)
+//*
+//*********************************************************************