//DTSBX601 JOB (UI,4300,3400,T),DTSBX601,CLASS=S,MSGCLASS=X,            00000010
//    USER=#DOADTS,
//    NOTIFY=ECNTZL1
//*
//**********************************************************************
//*SCAN MLOG RECORDS AND LIST ALL ADDRESSES THAT WERE ADDED OR UPDATED
//*CREATE FILE FOR WEB TO VERIFY ADDRESS IS CORRECT BEFORE ISSUING
//*REFUNDS
//***************************************************** 06/22/17  ZL1***
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBX601,    LIST MPRF-RETURN EMAIL ADDRESS -INACTIV
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWTC  DD  DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFX601 DD  DSN=ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT,DISP=SHR
//*
//*********************************************************************