//STEP010 EXEC PGM=FTP,PARM='(TIMEOUT 720'
//STEPLIB DD DSN=SYS1.SCEERUN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//OUTPUT DD DSN=MAPNT.R8201027.FTPFILEA,DISP=(,CATLG,DELETE), ---FTP的log
// UNIT=DISK,SPACE=(TRK,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=133,DSORG=PS)
//INPUT DD *
Y07PROD ---链接的host
UUUUUUUU PPPPPPPP ---帐号密码
// DD DSN=FINTAB.TCTL.FTP(ISTFRGTG),DISP=SHR ---FTP命令数据集
BINARY
GET AMFSRVN/APFRGTJRN.APFRGTJRN 'MAPNT.R8201027.FREIGHT' (REPLACE
QUOTE RCMD DSPFD FILE(AMFSRVN/APFRGTJRN) TYPE(*MBRLIST) + OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPFD1) BINARY
GET QTEMP/DSPFD1.DSPFD1 'MAPNT.R8201027.DSPFD1' (REPLACE QUIT
