Re: FTP changes the record format name

if you want to got the FTP rout, i would suggest looking at Scotts FTPAPI programs
http://www.scottklement.com/ftpapi/

then you get to be in charge of everything.
Bryan

ps.
i suspect you error stems from the files being restored being different from to restoring files. either file differences or authorities.

try the RSTOBJ on the target from command line to get a sense of the error

SAVRSTOBJ would also expose the same messages to your local sending program


T. Adair wrote on 10/20/2017 12:18 PM:

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