//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***
//*    RAINCODE TESTED ON 08/30/25                 ZL1
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB                            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=(NEW,CATLG,DELETE),
//             CODEPAGE=1252,AUTOENCODE=YES,
//*             SPACE=(8192,(100,200),RLSE),
//             DCB=(RECFM=LSEQ,LRECL=80)
//*********************************************************************
//*********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//* 
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/intranet/Outbound_intranet                                      
ascii                                                                 
put 'ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT' +
ECNTSUP.DOESTAX.CONV.RTNMAIL.TXT (REPLACE 
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*