File Utility Program (FUP) Management Programming Manual

ORSERV Commands and Responses
File Utility Program (FUP) Management Programming Manual—523322-001
5-17
Example
ORSERV^ssid,
ZSPI^VAL^CMDHDR,
ZORS^CMD^STATUS,
ZORS^OBJ^FILE);
IF error THEN CALL spi^proc^error^handler (error);
! ---------------------------------------------------------
! Put the file name parameter into the buffer.
! ---------------------------------------------------------
error := SSPUTTKN (buffer,
ZORS^TKN^FILE,
target^file^name);
IF error THEN CALL spi^proc^error^handler (error);
! ---------------------------------------------------------
! Get the last error from the buffer.
! ---------------------------------------------------------
error := SSGETTKN (buffer,
ZSPI^TKN^LASTERR,
spi^error );
IF error THEN CALL spi^proc^error^handler (error);
IF spi^error THEN CALL spi^proc^error^handler (spi^error);
! ---------------------------------------------------------
! Send the command buffer to ORSERV.
! ---------------------------------------------------------
error := send^command;
! ---------------------------------------------------------
! Interpret the response buffer; first check for errors
! ---------------------------------------------------------
error := SSGETTKN (buffer,
ZSPI^TKN^RETCODE,
return^error, 1);
IF error THEN CALL spi^proc^error^handler (error);
IF return^error <> ZORS^ERR^OK THEN
CALL retcode^error^handler (return^error);
! ---------------------------------------------------------
! Get the status token from the return buffer.
! ---------------------------------------------------------
error := SSGET (buffer,
params^def,
params, 1);
IF error THEN CALL spi^proc^error^handler (error);
! Process the status information.
RETURN 0; ! Successful return.
END; ! of STATUS procedure.
Figure 5-2. Example of the STATUS Command (page 2 of 2)