File Utility Program (FUP) Management Programming Manual

ORSERV Commands and Responses
File Utility Program (FUP) Management Programming Manual—523322-001
5-11
Example
BEGIN
CALL SSNULL (onlinereload^par^def,
params);
IF $PARAM (new) THEN
params.znew := new;
IF $PARAM (rate) THEN
params.zrate := rate;
IF $PARAM (min^dslack) THEN
params.zmin^dslack := min^dslack;
IF $PARAM (max^dslack) THEN
params.zmax^dslack := max^dslack;
IF $PARAM (min^islack) THEN
params.zmin^islack := min^islack;
IF $PARAM (max^islack) THEN
params.zmax^islack := max^islack;
IF $PARAM (deallocate) THEN
params.zdeallocate := deallocate;
CALL SSPUT (buffer,
onlinereload^par^def,
params);
END;
! ---------------------------------------------------------
! Check for an SPI error.
! ---------------------------------------------------------
CALL SSGETTKN (buffer,
ZSPI^TKN^LASTERR,
spi^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 THEN
CALL retcode^error^handler (return^error);
RETURN 0; ! Successful return
END; ! of ONLINERELOAD procedure.
Figure 5-1. Example of the ONLINERELOAD Command (page 3 of 3)