//ECNTSUP4 JOB (UI,4300,3400,T),JHP.ACCTRPTS,CLASS=S,MSGCLASS=X,        00000010
//          NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//******
//  SET LVLNODE='PROD'
//  SET MSTNODE='PROD'
//******
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBX054,       /* OUTSTANDING UC30 REPORTS
//             PARM='Q,20043',        /* YYYYQ
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//****