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 ''"
"Execio * diskr in (finis stem in."
"Free file(in)"

but after the xfer looks like this:

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

I am using binary mode.