//FTPESSP02   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.FTP.PFLOTR +
ECNTSUP.DOESTAX.CONV.FTP.PFLOTR (REPLACE
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*