OSI/AS Management Programming Manual

Event-Retrieval Example
Sample Programs
056785 Tandem Computers Incorporated C–27
-- Start the distributor process.
--
CALL NewProcess( Distr^prog^file,
,
,
,
,
error,
Distr^name );
IF ( ERROR.<0:7> > 0 ) THEN
BEGIN
CALL Debug;
RETURN error;
END;
--
-- Open the distributor to write the startup message.
--
CALL Open( Distr^name, Distr^Fn );
IF <> THEN
BEGIN
CALL Debug;
CALL FileInfo ( Distr^Fn, Error );
RETURN Error;
END;
--
-- Write the startup message.
--
CALL Write( Distr^Fn, Startup^Msg, $len (Startup^Msg) );
IF <> THEN
BEGIN
CALL FileInfo ( Distr^Fn, Error );
--
-- Error 70 means that the distributor is expecting
-- ASSIGN and PARAM messages. We don't have any to
-- give, so we can close the distributor. No other
-- errors are expected.
--
IF (Error <> 70) THEN
BEGIN
CALL Debug;
RETURN Error;
END;
END;
CALL Close( Distr^Fn );
RETURN 0;
END;
? PAGE "get^warning"
-------------------------------------------------------------
--
-- GET^WARNING -