//FTPESSP01   JOB
//*
//********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/essp/inbound_essp  
BINARY                                                                 
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X102 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X102 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X104 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X104 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X106 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X106 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X108 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X108 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD +
ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X120 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X120 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X140 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X140 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X144 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X144 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X145 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X145 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X147 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X147 (replace
GET ECNTSUP.DOESTAX.CONV.FROMESSP.X999 +
ECNTSUP.DOESTAX.CONV.FROMESSP.X999 (replace
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
// 
//
//*   ZL1  10/19/25.
//*  WELLS FARGO PAYMENT FILE MUST REMAIN IN ASCII FOR BANK TO PROCESS
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/essp/inbound_essp  
ASCII                                                                 
GET ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT +
ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT (REPLACE
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*