Expand Management Programming Manual

COMMANDS AND RESPONSES
Examples of Commands and Responses
! Put the called-system token in the buffer
spi^err := SSPUTTKN(exp^buf, zexp^tkn^called^sys, called^sys);
IF spi^err THEN
CALL handle^spi^error(spi^err); ! error on the call
! Put the selected-system token in the buffer
spi^err := SSPUTTKN(exp^buf, zexp^tkn^sel^sys, sel^sys);
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
BEGIN
! Handle the possible errors for the PROBE PROCESS ($NCP)
! command
RETURN;
END;
! Get the value of the PROBE extensible structured token
spi^err := SSGET(exp^buf,zexp^map^probe^ncp^resp,
tkn^value, 1);
IF spi^err THEN
CALL handle^spi^error(spi^err); ! error on the call
! Make the information accessible
@probe^ncp^value := @tkn^value;
END; ! of probe^ncp
! ***************************************************************
! * info^ncp *
! ***************************************************************
PROC info^ncp(called^sys,sel^sys);
INT called^sys,
sel^sys;
BEGIN
INT spi^err, ! returned by call on SPI procedure
return^token, ! value of return token
ncp^maps^val, ! value for the NCP option token
.i^ncp^name[0:11]; ! NCP name for object-name token
STRING .s^ncp^name := @i^ncp^name '<<' 1; !string NCP name
INT .zexp^map^info^ncp^netmap^rsp
[0:zexp^map^info^ncp^netmap^wln-1] :=
zexp^map^info^ncp^netmap;
INT .info^ncp^netmap^value(zexp^ddl^info^ncp^netmap^def);
INT .zexp^map^info^ncp^pathmap^rsp
[0:zexp^map^info^ncp^pathmap^wln-1] :=
zexp^map^info^ncp^pathmap;
INT .info^ncp^pathmap^value(zexp^ddl^info^ncp^pathmap^def);
7-129