zOS FTP：EBCDIC转ASCII处理与CR/LF移除

The following FTP batch job illustrates how to convert the EBCDIC file into an ASCII file containing CR/LF on the OS/390, then rebuild this ASCII file to remove the 2-byte trailing CR/LF. Once the CR/LF is removed, the resulting ASCII file would be transferred to the PC as a binary file type. (Note: Our case is 90-byte fixed-length; additional work is required if the original EBCDIC file contains variable-length records.) Run this job, or use FTP under TSO, on the NWRDC OS/390 host (i.e., where the original EBCDIC file is located): 

   //... JOB ...
 //E2A       EXEC PGM=FTP,REGION=2M
 //SYSPRINT  DD SYSOUT=A
 //INPUT     DD *
 NWRDC.FSU.EDU
 your-nwr-user ID
 your-nwr-password
 SENDSITE                  (toggles OFF sending DCB w/PUT)
 SITE LRECL=92             (new receive file lrecl is 92-bytes)
 TYPE A                    (client & server ASCII)
 QUOTE TYPE I              (server BINARY - no translate)
 PUT 'ebcdic-file'  'ascii-crlf-file'
 SITE LRECL=90             (new receive file lrecl is 90-bytes)
 TYPE E                    (client & server EBCDIC - no translate)
 MODE B                    (block-mode)
 PUT 'ascii-crlf-file'  'ascii-no-crlf-file'
 QUIT
 //

All of the options shown - SENDSITE, SITE, TYPE, MODE, etc. - must be set as indicated. The first PUT produces an ASCII file that contains CR/LF; the second PUT simply truncates these trailing 2-bytes. 

The OS/390 dataset named 'ascii-no-crlf-file' is the ASCII translation of the original EBCDIC file, without CR/LF. This file would then be transferred to the PC as a binary file. For example, using a DOS prompt on the PC: 


    FTP nwrdc.fsu.edu
    your-nwr-user ID
    your-nwr-password
    type i