OSI/AS Management Programming Manual

Management Program Example
Sample Programs
C–12 056785 Tandem Computers Incorporated
--
Spi^Buffer ':=' Spi^Buffer^Copy FOR
zOsi^Val^Min^BufLen BYTES
ELSE
-- There is no context token. We are done.
--
complete := zSpi^Val^True;
END; -- while complete = zSpi^Val^False
RETURN (RetCode);
END; -- PROC GetResponse^Loop;
? PAGE "add L4 profile for class 4 "
-------------------------------------------------------------
--
-- ADD^L4PFILE4 - Add #L4 PROFILE "TSTPFILE" to the
-- OSI/AS subsystem.
--
-- GLOBALS: Spi^Buffer
-- SSErr
-- Osi^Mgr^Name
-- Add^Prof^L4^Map
-- Add^Prof^L4
-- RetCode
-- Message4
-- Message5
-- Message6
-- Message7
-- Message8
-- INPUT: None
-- OUTPUT: None
--
-------------------------------------------------------------
INT PROC Add^L4Pfile4;
BEGIN
INT DataList^Index;
INT .ObjName [0:132];
STRING .S^ObjName := @ObjName '<<' 1;
CALL Init^Cmd^Buffer ( zCom^Cmd^Add,
zCom^Obj^Profile );
S^ObjName [2] ':=' Osi^Mgr^Name [1] FOR
Osi^Mgr^Name [0] BYTES &
[".#l4.tstpfile"];
-- 1234567890123
--
-- Add the length of the PROFILE name extension
-- to the length of the OSI manager name.
--
ObjName [0] := Osi^Mgr^Name [0] + 13;
SSErr := SSPutTkn ( Spi^Buffer,