//ECNTV125 JOB (UI,4300,3400,T),PROD.RQ125.VIEWDIR,
//         CLASS=P,MSGCLASS=X,
//         USER=#DOADTS,
//         NOTIFY=ECNTJP2,
//****     NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET LVLNODE='PROD'
//    SET PRGNODE='PROD'
//    SET   LHOLD='YES'
//    SET LVDHOLD='YES'
//    SET   LDEST=U@PRT65
//****
//*    ON REQUEST REPORT DTSBR125 -
//*                      EMPLOYER ALPHA LIST FOR VIEW-DIRECT
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//*        NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR'
//STEP0100.EXTPARM DD *
125
/*
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*                        REPORT GENERATION
//STEP0300 EXEC DTSVQRPT
//STEP0100.RPT907R1 DD SYSOUT=(Q,DTS907R1),HOLD=&LVDHOLD.,DEST=&LDEST.  00631000
//STEP0100.RPT980R1 DD SYSOUT=(Q,DTS980R1),HOLD=&LVDHOLD.,DEST=&LDEST.  00631000
//STEP0100.RPT991R1 DD DUMMY                                            00631000
//DOESLBLP.DOESLBL1 DD DUMMY                        /* LABELS           00631000
//*                                                                     00640000