DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSZQ325.jcl

@@ -0,0 +1,37 @@
+//DTSRQ325 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
+//STEP0050 EXEC DTSUTVSM,
+//             BKUPGEN='(+1)'
+//*                                                                     00001700
+//* DUE TO PROBLEMS WITH WAGES PROGRAM 325 WAS REMOVED FROM             00001700
+//* PROD. JOB DTSBK325 HAS COMPLETE STEPS        8/9/11         ZL1     00001700
+//*                                                                     00001700
+//STEP0100 EXEC PGM=DTSBZ358,     /* CORRECT 136946 ALL QUARTERS
+//             COND=(0,LT),       /* SHOULD BE ANNUAL.
+//             REGION=4096K
+//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,
+//             AMP=('BUFNI=5,BUFND=10')
+/*
+//****
+//STEP0100 EXEC DTSZX500,
+//             RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD *
+500
+/*
+//
+//*