DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSMIN01.jcl

@@ -0,0 +1,41 @@
+//DTSMIN01 JOB (UI,4300,3400,T),SRJ,CLASS=A,MSGCLASS=X,                 JOB21442
+//          USER=#DOADTS,
+//          NOTIFY=EUSC01K
+//*                                                                     00001700
+//  SET MSTNODE='PROD'                                                  00001700
+//  SET LVLNODE='PROD'                                                  00001700
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*LOADLIBS INCLUDE MEMBER=USERJLIB                                     00001600
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBS411,     GENERAL SCAN
+//             COND=(0,LT),
+//             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')
+//*
+//DTSFCPRE DD  DSN=DOESTAX.CONV.CURRMINI(0),DISP=SHR
+//*
+//DTSFCURR DD  DSN=DOESTAX.CONV.CURRMINI(+1),
+//             DISP=(,CATLG,KEEP),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(10,05),RLSE),
+//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
+//*
+//DTSFCRPT DD  DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR
+//*
+//DTSFSENT DD  DSN=DOESTAX.CONV.SENTMINI(+1),
+//             DISP=(,CATLG,KEEP),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(10,05),RLSE),
+//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
+//*
+//DTSFSRPT DD  DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR
+//*