DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSVBMON.jcl

@@ -0,0 +1,21 @@
+//DTSVBMON JOB (UI,4300,3400,T),BE770,CLASS=P,MSGCLASS=X,               00000010
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,        //* CHECK -->> LINES BELOW IF A RERUN
+//       REGION=0M           //* CHECK -->> 1X SPECIAL LINES (DELETE)
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET LVLNODE='PROD'
+//    SET MSTNODE='PROD'
+//    SET   LHOLD='NO'
+//****
+//* THIS PROCESS CREATES A BACKUP FOR MONTH END.
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*             SPEC BACKUP AT END OF MONTH
+//*
+//STEP0125 EXEC DTSUTVMO,
+//             BKUPGEN='(+1)'
+//*** *
+//*