Figure 1: iSeries-to-iSeries transfer maintaining numeric formats

ftp> Bin
(Set Transfer Type to TYPE I (Binary))
ftp> NA 0
(Switch Name Format to 0 on your iSeries)
ftp> quote crts file(qtemp/myddssrc) TEXT('Temp DDS Source file')
(Create a Source Physical File)
ftp> put myddslib/myddssrc.myfilesrc qtemp/myddssrc.myfilesrc
(Transfer the DDS File. Note that the Source file must be created first
or the member will not transfer correctly.)
ftp> quote crtpf file(rmtlib/rmtfile) srcfile(qtemp/myddssrc) +
　　　　srcmbr(myfilesrc) size(*nomax)
(Create the File from the DDS)
ftp> put mylib/myfile rmtlib/rmtfile
(Send the File)
ftp> quit
(End the FTP Session)

It may be necessary to use EBCDIC, in which case you would replace the BIN
command with:

ftp> ebcdic
(Set Transfer Type to TYPE E (EBCDIC))
ftp> mo b
(Set Transfer Mode to Block.)