OSI/MHS Management Programming Manual

Examples
OSI/MHS Management Programming Manual—424824-001
C-10
SPI Example in TAL
? 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
--
-- The information read from $RECEIVE is not used by the
-- example program. This procedure is included for
-- completeness.
-------------------------------------------------------------
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
INT .Receive^Name [0:11]
:= ["$RECEIVE", 8 * [" "]];
INT Rcv^Num;
INT Count^Read;
INT Open^Error := 0;
CALL Open( Receive^Name, Rcv^Num );
IF <> THEN
BEGIN