OSI/AS Management Programming Manual

Management Program Example
Sample Programs
C–6 056785 Tandem Computers Incorporated
-- with Osi^Val^SSID and MAXRESP = -1.
--
-- GLOBALS: Spi^Buffer : Buffer to initialize
-- Osi^Val^SSID : Must be set before
-- SSErr : Set in this procedure
-- INPUT: Cmd: zCom^Cmd^xxx value to use in SSINIT
-- ObjType: zCom^Obj^yyy value to use in SSINIT
-- OUTPUT: None
--
-------------------------------------------------------------
PROC Init^Cmd^Buffer ( Cmd, ObjType );
INT Cmd;
INT ObjType;
BEGIN
INT MaxResp;
SSErr := SSInit ( Spi^Buffer,
zOsi^Val^Min^BufLen,
Osi^Val^SSID,
zSpi^Val^CmdHdr,
Cmd,
ObjType );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
MaxResp := -1;
SSErr := SSPutTkn( Spi^Buffer,
zSpi^tkn^MaxResp,
MaxResp );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
END; -- PROC Init^Cmd^Buffer
? PAGE "Reset pointer to Initial position in SPI Buffer"
-------------------------------------------------------------
--
-- RESET^SPIBUF - Reset to initial position in SPI buffer.
--
-- GLOBALS: Spi^Buffer
-- SSErr
-- INPUT: None
-- OUTPUT: None
--
-------------------------------------------------------------
PROC Reset^SpiBuf;
BEGIN
INT Init^Buffer;
--
-- Reset SPI buffer length to the length of our buffer
-- and set position at beginning of buffer.
--