//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ312,CLASS=P,MSGCLASS=X,            00000010
//          NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*                                                                     00001700
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0100 EXEC DTSUTVSM,
//         BKUPGEN='(+1)'
//****                             /*  MERGE
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBZ312,     /* WITHDRAW MISSING REPORT PENALTY
//             COND=(0,LT),       /* WHERE QTR IS NOT LIABLE
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD  DSN=DOESTAX.&LVLNODE..BTC(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//****