Re: FTP changes the record format name

This is an excellent suggestion. I've got this set up now, and when I run it, all the FTP commands in the script work perfectly except for the RSTOBJ - it fails with FTP error 550. The FTP log only shows the 550 error - no additional information. The system operator message queue on the target system shows nothing.

(Side note: the file does not yet exist on the target system.)

Excerpt from FTP log...:
> quote rcmd RSTOBJ DS_PRDXF DS_DATA DEV(*SAVF) SAVF(PRDXF) RSTLIB(D1_DATA)
550-Error occurred on command RSTOBJ DS_PRDXF DS_DATA DEV(*SAVF) SAVF(PRDXF) RS
550 Error found on RSTOBJ command..

I've tried it with keywords and without. Same result.

I copy & paste the same RSTOBJ command directly on a command-line on the target system and it runs just fine.

Is there any way to force FTP to give detailed information of exactly what the error was?

Thanks.

~TA~



On 10/20/2017 9:18 AM, Rob Berendt wrote:

SOP is to save the file to a save file, ftp the save file, restore the
object from the save file.
You can script this

PGM PARM(&RMTSYSTEM)
DCL VAR(&RMTSYSTEM) TYPE(*CHAR) LEN(200)
OVRDBF FILE(INPUT) TOFILE(MYLIB/FTPSCRIPT)
OVRDBF FILE(OUTPUT) TOFILE(MYLIB/FTPOUTPUT)
FTP RMTSYS(&RMTSYSTEM)
DLTOVR FILE(INPUT)
DLTOVR FILE(OUTPUT)
CALL PGM(ANALYZER) /* Analyze FTP output */
ENDPGM


FTPSCRIPT may look something like
USRPRF
BIN
quote rcmd crtsavf file(ROB/ROB)
QUOTE RCMD CLRSAVF FILE(ROB/ROB)
PUT ROB/ROB ROB/ROB
quote rcmd RSTOBJ OBJ(SVRAUT SVRAUTR SVRAUTV) SAVLIB(ROUTINES) DEV(*SAVF)
OBJTYPE(*PGM *CMD) SAVF(ROB/ROB)
quote rcmd clrsavf rob/rob
QUIT


Rob Berendt