Re: FTP changes the record format name

["T. Adair" <tadair@xxxxxxxxxxxxxxxx>]

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