OSI/AS Management Programming Manual

Management Program Example
Sample Programs
056785 Tandem Computers Incorporated C–15
END; -- Add^L4Pfile4;
? PAGE "ListObjects Subsys "
-------------------------------------------------------------
--
-- LISTOBJ^SUBSYS - Send LISTOBJECTS SUBSYS command to list
-- name of OSI manager.
--
-- GLOBALS: Term^fn
-- Term^Buf
-- Spi^Buffer
-- SSErr
-- Osi^Mgr^Name
-- RetCode
-- INPUT: None
-- OUTPUT: None
--
-------------------------------------------------------------
INT PROC ListObj^Subsys;
BEGIN
INT
Subordinate^Value;
CALL Write( Term^fn, Term^Buf, 0 );
CALL Write( Term^fn, Message2[1], Message2[0] );
CALL Init^Cmd^Buffer ( zCom^Cmd^ListObjects,
zCom^Obj^Subsys );
SSErr := SSPutTkn ( Spi^Buffer,
zSpi^Tkn^Manager,
Mgr^Tkn^Name[1] );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
SSErr := SSPutTkn ( Spi^Buffer,
zCom^Tkn^Objname,
Osi^Mgr^Name );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
Subordinate^Value := zCom^Val^Sub^None;
SSErr := SSPutTkn ( Spi^Buffer,
zCom^Tkn^Sub,
Subordinate^Value );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
RetCode := GetResponse^Loop;
RETURN ( RetCode );
END; -- ListObj^Subsys
? PAGE "ListObjects Null "
-------------------------------------------------------------