Expand Management Programming Manual

COMMANDS AND RESPONSES
Examples of Commands and Responses
! Make the information accessible
@info^ncp^pathmap^value := @tkn^value;
END; !of info^ncp
! ***************************************************************
! * start^line *
! ***************************************************************
PROC start^line(obj^name);
INT .obj^name; ! object name of line to be started
BEGIN
INT spi^err, ! returned by call on SPI procedure
return^token; ! value of return token
! Initialize the command buffer
CALL build^cmd(zcom^cmd^start, zcom^obj^line);
! Put the object-name token in the buffer
spi^err := SSPUTTKN(exp^buf, zcom^tkn^objname, obj^name);
IF spi^err THEN
CALL handle^spi^error(spi^err); ! error on the call
return^token := call^scp;
IF return^token <> zcom^err^ok THEN ! an error occurred
! Handle the possible errors for the START LINE command
END; ! of start^line
! ***************************************************************
! * abort^line *
! ***************************************************************
PROC abort^line(obj^name);
INT .obj^name; ! The object name of the line to be stopped
BEGIN
INT spi^err, ! returned by call on SPI procedure
return^token; ! the value of the return token
! Initialize the command buffer
CALL build^cmd(zcom^cmd^abort, zcom^obj^line);
! Put the object-name token in the buffer
spi^err := SSPUTTKN(exp^buf, zcom^tkn^objname, obj^name);
IF spi^err THEN
CALL handle^spi^error(spi^err); ! error on the call
return^token := call^scp;
IF return^token <> zcom^err^ok THEN ! an error occurred
! Handle the possible errors for the STOP LINE command
END; ! of abort^line
7-131