//DTSFTP147 JOB (UI,4300,3400,T),DAILY-EXTRACT,CLASS=S,                  00010001
//         MSGCLASS=X,                                                  00020000
//         USER=#DOADTS,                                                00021011
//         NOTIFY=ECNTZL1,                                              00030008
//         REGION=0M                                                    00050000
//****                                                                  00060000
//*   FTP ANY FILES TO 147                    
//*                                                                     00084001
//*   NO MASTER FILE UPDATES                                            00090000
//*   MODIFIED FOR RC                                                   00100000
//*   CHANGED OUTBOUND FILES TO ASCII -RC HAS IT IN EBCDIC 09/25/25 ZL1
//*                                                                     00110000
//****                                                                  00130000
//  SET LVLNODE='CONV'                                                  00140000
//  SET MSTNODE='PROD'                                                  00150000
//  SET RUNTYPE='0'                                                     00150100
//****                                                                  00151000
//****
//STPFTP1  EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'  
//SYSPRINT DD  SYSOUT=*                           
//OUTOUT   DD  SYSOUT=*                           
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133           
//SYSGET   DD  *,DCB=BLKSIZE=80                   
//INPUT    DD  *                                  
10.57.110.147                                     
dutasrc                                           
Today728rc!                                       
cd /Dutasrc/essp/outbound_essp     
ascii                                           
PUT 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT' +  
ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT          
PUT 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT' +  
ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT          
PUT 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS' +  
ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS          
QUIT
/*