DUTAS re-platformed to Raincode - Initial Source Code

JCL/RUNBX054.jcl

@@ -0,0 +1,21 @@
+//ECNTSUP4 JOB (UI,4300,3400,T),JHP.ACCTRPTS,CLASS=S,MSGCLASS=X,        00000010
+//          NOTIFY=ECNTSUP
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//******
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//******
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBX054,       /* OUTSTANDING UC30 REPORTS
+//             PARM='Q,20043',        /* YYYYQ
+//             COND=(0,LT),
+//             REGION=4096K
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFREF  DD  DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//****