OSI/AS Management Programming Manual

Management Program Example
Sample Programs
C–14 056785 Tandem Computers Incorporated
SSErr := SSGetTkn( Spi^Buffer,
zSpi^Tkn^RetCode,
RetCode );
CASE RetCode OF
BEGIN
zCom^Err^FS^Err ->
CALL Write( Term^fn,
Message4[1],
Message4[0] );
OTHERWISE ->
CALL Write( Term^fn,
Message6[1],
Message6[0] );
END;
RETURN (RetCode);
END
ELSE
-- unexpected SPI error
CALL Debug;
END; -- if SSErr <> zSpi^Err^OK
-- Get return token.
SSErr := SSGetTkn( Spi^Buffer,
zSpi^Tkn^RetCode,
RetCode );
IF (SSErr <> zSpi^Err^OK) THEN
CALL Debug
ELSE
BEGIN
CASE RetCode OF
BEGIN
zCom^Err^OK ->
CALL Write( Term^fn,
Message7 [1],
Message7 [0] );
zCom^Err^Secur^Viol ->
CALL Write( Term^fn,
Message5 [1],
Message5 [0] );
zCom^Err^FS^Err ->
CALL Write( Term^fn,
Message4 [1],
Message4 [0] );
zCom^Err^Obj^Alrdy^Def ->
CALL Write( Term^fn,
Message8 [1],
Message8 [0] );
OTHERWISE ->
CALL Write( Term^fn,
Message6 [1],
Message6 [0] );
END; -- case
END; -- if SSErr <> zSpi^Err^OK
RETURN (RetCode);