//DTSRQ423 JOB (UI,4300,3400,T),PROD.BE423,CLASS=S,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//****     NOTIFY=ECNTZL1,
//****     USER=#DOADTS,
//****     TYPRUN=SCAN,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//   SET LVLNODE='PROD'
//   SET   LHOLD='YES'
//****
//*    ON REQUEST REPORT DTSBR423 -
//*                      PRIOR DELINQUENT LIST
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR'
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ423),
//         DISP=SHR
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*
//STEP0300 EXEC DTSRQRPT
//**                      PRIOR DELINQUENT LIST BY FLD REP - 1 E
//STEP0100.RPT423R1 DD  SYSOUT=*,HOLD=&LVDHOLD.
//**                      PRIOR DELINQUENT LIST BY FLD REP - 2 E
//STEP0100.RPT423R2 DD  SYSOUT=*,HOLD=&LVDHOLD.
//**                      PRIOR DELINQUENT LIST BY FLD REP - 3+
//STEP0100.RPT423R3 DD  SYSOUT=*,HOLD=&LVDHOLD.
//**                           UNUSUAL CONDITIONS ENCOUNTERED RE
//STEP0100.RPT907R1 DD  SYSOUT=*,HOLD=&LVDHOLD.
//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
//STEP0100.RPT907R2 DD  DUMMY
//**                           CONTROL REPORT SUMMARY
//STEP0100.RPT980R1 DD  SYSOUT=*,HOLD=&LVDHOLD.
//*
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*