OSI/AS Management Programming Manual

Management Program Example
Sample Programs
C–4 056785 Tandem Computers Incorporated
--
-- External declarations for SPI procedures
--
? NOLIST, SOURCE $system.system.extdecs0( SSGet,
? SSGetTkn,
? SSInit,
? SSMove,
? SSMoveTkn,
? SSNULL,
? SSPut,
? SSPutTkn )
? LIST
? PAGE "Process Startup Sequence"
-------------------------------------------------------------
--
-- STARTUP:
--
-- GLOBALS: None
-- INPUT: None
-- OUTPUT: None
--
-- Purpose: Perform the standard process startup sequence.
-- Open $RECEIVE file
-- Read startup message
-- Close $RECEIVE file
--
-------------------------------------------------------------
PROC Startup;
BEGIN
STRUCT Startup^msg;
BEGIN
INT msgcode;
STRUCT default;
BEGIN
INT vol [0:3];
INT subvol [0:3];
END;
STRUCT infile;
BEGIN
INT vol [0:3];
INT subvol [0:3];
INT name [0:3];
END;
STRUCT outfile;
BEGIN
INT vol [0:3];
INT subvol [0:3];
INT name [0:3];
END;
STRUCT parameter;
BEGIN
STRING bytes[0:40];
END;
END; -- Startup^msg