OSI/AS Management Programming Manual

Event-Retrieval Example
Sample Programs
056785 Tandem Computers Incorporated C–25
RETURN Error;
END;
CALL Read( Rcv^Fn,
Startup^msg,
$LEN( Startup^msg ),
Count^Read );
IF <> THEN
BEGIN
CALL Debug;
CALL FileInfo ( Rcv^Fn, Error );
RETURN Error;
END;
CALL Close( Rcv^Fn );
RETURN 0;
END; -- PROC Startup
? PAGE "get^filter^name"
-------------------------------------------------------------
--
-- GET^FILTER^NAME - Get user input of filter name from the
-- startup message RUN parameters.
--
-- GLOBALS: Term^Buf
-- Filt^Name
-- INPUT: None
-- OUTPUT: None
--
-------------------------------------------------------------
PROC get^filter^name;
BEGIN
INT got^it;
INT filter^name^length;
INT text^len;
INT input^len;
STRING .s^term^buf := @term^buf '<<' 1;
STRING .end^of^text;
got^it := zSpi^Val^False;
WHILE ( got^it = zSpi^Val^False ) DO
BEGIN
--
-- Prompt the user for the filter name.
--
s^term^buf ':=' ["Enter the filter name?: "] ->
@end^of^text;
text^len := @end^of^text '-' @s^term^buf;
-- Prompt for and read filter name.