//ECNTVDAX JOB (UI,4300,3400,T),PICKUP.HOLD.VIEWDIR,
//         CLASS=P,MSGCLASS=X,
//****     USER=#DOADTS,
//****     NOTIFY=ECNTJP2,
//         NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//****     SPECIAL SETUP TO PICK UP VIEWDIRECT REPORTS FROM A
//****     SPECIFIC JOB                    (SPEC. FOR VIEW DIRECT)
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*