//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.PROCS.BATCH.LIB
//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
//**