//DTSBZ084 JOB (UI,4300,3400,T),PROD.BZ084,CLASS=P,MSGCLASS=X,          00000010
//          USER=#DOADTS,
//***       NOTIFY=ECNTSUP
//          NOTIFY=ECNTJP2
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*                                                                     00001700
//  SET PRGNODE='DEVL'                                                  00001700
//  SET MSTNODE='PROD'                                                  00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBZ084,     /* T031 ADJUSTMENT FOR HOUSEHOLD
//             COND=(0,LT),       /* EMPS DELINQUENT IN 2002/1
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//DTSFMSTA DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTA,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFMSTB DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTB,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFMSTC DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFMSTD DD  DSN=DOESTAX.&MSTNODE..VSAM.MSTD,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFAIX  DD  DSN=DOESTAX.&MSTNODE..VSAM.AIX,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD  DSN=DOESTAX.&MSTNODE..BTC(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//****