OSI/TS Management Programming Manual

Sample Programs
056786 Tandem Computers Incorporated C–9
! Get object-name token and put in tkn^value.
spi^err := SSGETTKN(os4^buf, zcom^tkn^objname,
tkn^value);
IF spi^err THEN
CALL DEBUG;
! Display object name on terminal.
CALL WRITE(term^file^num,tkn^value[1],tkn^value[0]);
! Get return token (ZSPI^TKN^RETCODE).
spi^err := SSGETTKN(os4^buf,zspi^tkn^retcode,
return^token);
IF spi^err THEN
CALL DEBUG;
CASE return^token OF
BEGIN
ZCOM^ERR^OK ->
BEGIN
spi^err := SSGETTKN(os4^buf,
zspi^tkn^errlist,,1);
IF spi^err <> 0 THEN
BEGIN
IF spi^err = zspi^err^mistkn THEN
CALL WRITE(term^file^num,
message6[1],
message6[0])
ELSE
CALL DEBUG;
END
ELSE
BEGIN ! Retrieve warning.
spi^err := SSGETTKN(os4^buf,
zspi^tkn^error,
error^token);
IF spi^err THEN
CALL DEBUG;
CASE error^token.z^error OF
BEGIN
ZCOM^ERR^OBJ^ALRDY^IN^SUMSTATE
->
CALL WRITE(term^file^num,
message8[1],
message8[0]);
OTHERWISE ->
CALL WRITE(term^file^num,
messageD[1],
messageD[0]);
END;
spi^err := SSGETTKN(os4^buf,
zspi^tkn^endlist);
IF spi^err THEN
CALL DEBUG;
END;
END;
ZCOM^ERR^SECUR^VIOL ->
CALL WRITE(term^file^num, message2[1],