File Utility Program (FUP) Management Programming Manual

ORSERV Commands and Responses
File Utility Program (FUP) Management Programming Manual—523322-001
5-21
Example
error := SSINIT (buffer,
ZORS^VAL^BUFLEN,
ORSERV^ssid,
ZSPI^VAL^CMDHDR,
ZORS^CMD^SUSPEND,
ZORS^OBJ^FILE);
IF error THEN CALL spi^proc^error^handler (error);
! ---------------------------------------------------------
! Put the required file-name parameter into the buffer.
! ---------------------------------------------------------
error := SSPUTTKN (buffer,
ZORS^TKN^FILE,
target^file^name);
IF error THEN CALL spi^proc^error^handler (error);
! ---------------------------------------------------------
! Check for an SPI error.
! ---------------------------------------------------------
error := SSGETTKN (buffer,
ZSPI^TKN^LASTERR,
spi^error);
IF error THEN CALL spi^proc^error^handler (error);
IF spi^error THEN RETURN spi^error;
! ---------------------------------------------------------
! Call SEND^COMMAND to send the command buffer to ORSERV.
! ---------------------------------------------------------
error := send^command;
IF error THEN RETURN error;
! ---------------------------------------------------------
! Interpret the response buffer returned from ORSERV.
! ---------------------------------------------------------
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);
RETURN 0; ! Successful return
END; ! of SUSPEND^ORSERV procedure.
Figure 5-3. Example of the SUSPEND Command (page 2 of 2)