OSI/AS Management Programming Manual

Management Program Example
Sample Programs
056785 Tandem Computers Incorporated C–17
-- Get terminal name and open terminal.
CALL MyTerm ( Term^name );
CALL Open ( Term^name, Term^fn );
IF <> THEN GOTO exit;
-- Process the startup sequence.
CALL Startup;
-- Open SCP as the management process.
FS^Error := Open^SCP;
IF (FS^Error <> 0) THEN GOTO exit;
-- Get OSI manager name from terminal.
CALL Get^OsiM^Name;
-- ADD PROFILE [osimgrp].#L4.L4PFILE4
RetCode := Add^L4Pfile4;
IF (RetCode <> zCom^Err^OK) AND
(RetCode <> zCom^Err^Obj^Alrdy^Def) THEN
GOTO exit;
-- LISTOBJECTS SUBSYS
RetCode := ListObj^Subsys;
IF (RetCode <> zCom^Err^OK) THEN GOTO exit;
-- LISTOBJECTS NULL
RetCode := ListObj^Null;
IF (RetCode <> zCom^Err^OK) THEN GOTO exit;
exit:
-- Close $ZNET.
CALL Close ( SCP^fn );
-- Close the terminal file.
CALL Close ( Term^fn );
END; -- proc zOsi^Example