DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ511.jcl

@@ -0,0 +1,32 @@
+//DTSRQ511 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X,        00000010
+//         USER=#DOADTS,
+//         NOTIFY=ECNTSUP
+//*                                                                     00001700
+//   SET LVLNODE='PROD'
+//   SET MSTNODE='PROD'
+//   SET LHOLD='YES'
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBD511,     /* GENERATE NON PAYMNT SUR CHG LTR
+//             COND=(0,LT),
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR
+//DTSFVRO1 DD  DSN=DOESTAX.&MSTNODE..PER.RPT(+1),
+//         DISP=(,CATLG,DELETE),
+//         SPACE=(CYL,(2,1),RLSE),
+//         DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//STEP0200 EXEC DTSRSORT
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//**
+//*TEP0400 EXEC DTSUTVSM,
+//*           BKUPGEN='(+1)'
+//**