DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSBD515

@@ -0,0 +1,18 @@
+//STEP0991 EXEC PGM=DTSBD515,             DAILY CREDIT/DEBIT REPORT     02580001
+//             COND=(0,LT)                                              02590000
+//SYSOUT   DD  SYSOUT=*                                                 02600000
+//SYSABOUT DD  SYSOUT=*                                                 02610000
+//SYSUDUMP DD  SYSOUT=*                                                 02620000
+//SYSPRINT DD  SYSOUT=*                                                 02630000
+//**                                                                    02640000
+//DTSFVRI1 DD  DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR     02650000
+//**                                                                    02650100
+//DTSIMSTR     INCLUDE MEMBER=DTSIMSTR                                  02651000
+//**                                                                    02660000
+//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 02690000
+//             AMP=('BUFNI=5,BUFND=10')                                 02700000
+//**                                                                    02701000
+//RPT319R1 DD  SYSOUT=(V,DTS319D1),HOLD=&LVDHOLD.                       02704100
+//**                                                                    02705000
+//RPT319R2 DD  SYSOUT=(V,DTS319D2),HOLD=&LVDHOLD.                       02705100
+//**                                                                    02710000