OSI/AS Management Programming Manual

Management Program Example
Sample Programs
C–16 056785 Tandem Computers Incorporated
--
-- LISTOBJ^NULL - Send LISTOBJECTS NULL command to list names
-- of all objects in this OSI/AS subsystem.
--
-- GLOBALS: Term^fn
-- Term^Buf
-- Spi^Buffer
-- SSErr
-- Osi^Mgr^Name
-- RetCode
-- INPUT: None
-- OUTPUT: None
--
-------------------------------------------------------------
INT PROC ListObj^Null;
BEGIN
CALL Write( Term^fn, Term^Buf, 0 );
CALL Write( Term^fn, Message3 [1], Message3 [0] );
CALL Init^Cmd^Buffer ( zCom^Cmd^ListObjects,
zCom^Obj^Null );
SSErr := SSPutTkn ( Spi^Buffer,
zSpi^Tkn^Manager,
Mgr^Tkn^Name[1] );
IF (SSErr <> zSpi^Err^OK) THEN CALL Debug;
RetCode := GetResponse^Loop;
RETURN (RetCode);
END; -- ListObj^Null
? PAGE "zOsi Example"
-------------------------------------------------------------
--
-- Main - main program
-- Open terminal file
-- Process startup sequence
-- Open $ZNET process
-- Get user input of the OSI manager name
-- ADD #L4 PROFILE "TSTPFILE" to the MIB
-- LISTOBJECTS SUBSYS
-- LISTOBJECTS NULL
-- Close all the opened files
--
-------------------------------------------------------------
PROC zOsi^Example MAIN;
BEGIN