DUTAS re-platformed to Raincode - Initial Source Code

JCL/ECNTVDMO.jcl

@@ -0,0 +1,41 @@
+//ECNTVDMO JOB (UI,4300,3400,T),MONPROD.VIEWDIR,
+//         CLASS=P,MSGCLASS=X,
+//         USER=#DOADTS,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//** 11/02/01 - JHP
+//**   STUB OF MONTHLY TO RE-RUN LAST SET OF MONTHLY RPTS
+//**             **ON HOLD**   FOR VIEW-DIRECT
+//****     (USE FOLLOWING 3 LINES FOR SPECIFIC REPORTS ONLY)
+//**//STEP0990.PARMIN  DD  *
+//**DTSBD800,INC,901
+//**/*
+//****
+//STEP0200 EXEC DTSRMVD,
+//         LVLNODE='PROD',
+//          RPTGEN='+0',
+//           LDEST=U@PRT65,
+//           LHOLD='YES',
+//         LVDHOLD='YES',
+//          LR414H='YES'
+//**//STEP0100.PARMIN  DD  *
+//**DTSBD800,INC,429
+//**/*
+//**                         THESE REPORTS NOT USED IN VIEWDIRECT
+//STEP0100.RPT414R1 DD  DUMMY
+//STEP0100.RPT414R2 DD  DUMMY
+//STEP0100.RPT414R3 DD  DUMMY
+//STEP0100.RPT414R4 DD  DUMMY
+//STEP0100.RPT414R5 DD  DUMMY
+//STEP0100.RPT414R6 DD  DUMMY
+//STEP0100.RPT727R1 DD  DUMMY
+//STEP0100.RPT907R2 DD  DUMMY
+//DOESLBLP.DOESLBL1 DD  DUMMY
+//**