DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSUXCGU

@@ -0,0 +1,18 @@
+//****
+//*         UPDATE FQTR RECORD WITH CHARGE RUN DATE
+//*         AND SELF-INSURED TAX DUE DATE
+//****
+//DTSUXCGU PROC
+//STEP0100 EXEC PGM=CHGBD310,          /*  UPDATE FQTR
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//**
+//CHGPARM  DD  DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY,
+//             DISP=SHR
+//**
+//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//**