Trying to FTP from one mainframe to another

I am attempting to xfer a member from a pds from one mainframe to another. The input dataset looks something like this:

/**** rexx *****************************************************/
/* Parse APRs */
/***************************************************************/
trace ?
"Alloc file(in) ds('APTS.DB2.APARS(BAD2793D)') shr reuse"
"delete 'bmcjmb.apar.data'"
"Execio * diskr in (finis stem in."
"Free file(in)"

but after the xfer looks like this:

/**** rexx *****************************************************/
"Al
nis stem in." "Free file(in)
do i = 1 to in.0
select
end
say 'k = ' k
lrecl(80) recfm(F dsorg(ps) new catalog "
le(infile)"
/**********
**********************************/

I am using binary mode.