X25AM Management Programming Manual

Commands and Responses
X25AM Management Programming Manual—528037-001
6-154
Examples of Commands and Responses
CALL handle^spi^error(sserror); ! error on the call
! Put the subordinate-modifier token in the buffer
sub^value := zcom^val^sub^none;
sserror := SSPUTTKN(buffer, zcom^tkn^sub, sub^value);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
return^token := call^scp;
IF return^token <> zspi^err^ok THEN ! an error occurred
! Handle the possible errors for the START LINE command
END; ! of start^line
! ***************************************************************
! * stop^line *
! ***************************************************************
PROC stop^line(obj^name);
INT .obj^name; ! The object name of the line to be stopped
BEGIN
INT sserror, ! returned by call on SPI procedure
return^token; ! the value of the return token
! Initialize the command buffer
CALL build^cmd(zcom^cmd^stop, zcom^obj^line);
! Put the object-name token in the buffer
sserror := SSPUTTKN(buffer, zcom^tkn^objname, obj^name);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
! Put the subordinate-modifier token in the buffer
sub^value := zcom^val^sub^none;
sserror := SSPUTTKN(buffer, zcom^tkn^sub, sub^value);
IF sserror THEN
CALL handle^spi^error(sserror); ! error on the call
return^token := call^scp;
IF return^token <> zspi^err^ok THEN ! an error occurred
! Handle the possible errors for the STOP LINE command
END; ! of stop^line