DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSBX215

@@ -0,0 +1,42 @@
+//*
+//*      DAILY BATCH CONTROL SUMMARY REPORT RECORDS (R301)
+//*
+//*      05/08/2009  ADDED DEPOSIT FILE  GD
+//*
+//DTSBX215 PROC
+//**              DEFNS NEEDED FOR THIS PROC:
+//**   LVLNODE = DEVL/TEST/PROD
+//****
+//*
+//STEP0100 EXEC PGM=DTSBX215,
+//             COND=(0,LT),
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFVRI1 DD  DSN=DOESTAX.&MSTNODE..SRTDAILY.RPT(+0),DISP=SHR
+//*
+//DTSFX215 DD  DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX215,                 00005000
+//             DISP=(OLD,KEEP,KEEP),
+//**           DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(5,5),RLSE),
+//             DCB=(RECFM=FB,LRECL=103,BLKSIZE=22660)
+//*                                                                     00014000
+//DTSFX220 DD  DSN=ECNTSUP.DOESTAX.&MSTNODE..FTP.BX220,                 00005000
+//             DISP=(OLD,KEEP,KEEP),
+//**           DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(5,5),RLSE),
+//             DCB=(RECFM=FB,LRECL=52,BLKSIZE=26000)
+//*                                                                     00014000
+//DTSFDPST DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.DEPOSIT,
+//             DISP=(OLD,KEEP,KEEP),
+//**           DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(20600,(1000,1000),RLSE),
+//             DCB=(RECFM=FB,LRECL=103,BLKSIZE=20600)
+//*
+//*****************************************