DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSPMONX.jcl

@@ -0,0 +1,37 @@
+//DTSPMONX JOB (UI,4300,3400,T),PROD.MONTHLY,CLASS=P,MSGCLASS=X,        00000010
+//             NOTIFY=ECNTSUP,
+//****         USER=#DOADTS,
+//****         TYPRUN=SCAN,
+//             REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//    SET LVLNODE='PROD'
+//****
+//*       REVISED 9/20/1999 FOR DC - GD                            |
+//* NOTE      :  RUN ON LAST WORKING DAY OF MONTH.                 |
+//*              AFTER DAILY HAS RUN (AND WEEKLY IF NECESSARY)     |
+//****
+/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
+//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                                  SPEC BACKUP BEFORE MONTHLY BATCH
+//*                        THIS RESTORE IS DONE AT MONTH-END TO
+//*                REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX)
+//*                        (OLA IS ALREADY RESET BY THE DAILY)
+//*                        (ATC, REF & WRK WILL BE DONE IN THE QRTLY)
+//*                        (NAIC & SIC NEED ONLY BE DONE AFTER
+//*                                   A SUCCESSFUL (ANNUAL?) LOAD)
+//**//STEP0600 EXEC DTSRORG1,
+//**//         BKUPGEN='(+0)'
+//*
+//*                                                 MONTH END REPORTING
+//STEP0700 EXEC DTSRMEND,
+//         LVLNODE='PROD',
+//          RPTGEN='+0',
+//           LDEST=U@PRT65,
+//           LHOLD='NO',
+//         LVDHOLD='YES',
+//          LR414H='YES'
+//**                             SPECIFIC OVERRIDE(S) FOR THE MONTHLY
+//*