OSI/AS Management Programming Manual

Event-Retrieval Example
Sample Programs
C–24 056785 Tandem Computers Incorporated
STRUCT .SPI^Error( zSpi^DDL^Error^def );
? NoList, Source $SYSTEM.SYSTEM.EXTDECS0( Close,
? CreateProcessName,
? Debug,
? EmsGetTkn,
? EmsText,
? FileError,
? FileInfo,
? FnameExpand,
? JulianTimeStamp,
? MyTerm,
? NewProcess,
? Open,
? Read,
? Reply,
? SSGetTkn,
? SSInit,
? SSMoveTkn,
? SSPutTkn,
? Stop,
? Write,
? WriteRead )
? List
? PAGE "Process Startup Sequence"
-------------------------------------------------------------
--
-- STARTUP:
-- GLOBALS: None
-- INPUT: Empty startup message buffer
-- OUTPUT: Initialized startup message buffer
--
-- Purpose: Perform the standard process startup sequence.
-- Open $RECEIVE file
-- Read the startup message
-- Close $RECEIVE file
--
-------------------------------------------------------------
INT PROC Startup ( Startup^Msg );
STRUCT .Startup^msg ( Startup^Msg^def );
BEGIN
INT .receive^name [0:11]
:= ["$RECEIVE", 8 * [" "]];
INT Rcv^Fn;
INT count^read;
INT error;
CALL Open( receive^name, Rcv^Fn );
IF <> THEN
BEGIN
CALL Debug;
CALL FileInfo ( Rcv^Fn, Error );