OSI/AS Management Programming Manual

Event-Retrieval Example
Sample Programs
056785 Tandem Computers Incorporated C–23
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:99];
END;
END; -- Startup^msg
INT .term^name[0:11];
INT term;
INT .Distr^name [0:11] := [ 12*[" "] ];
INT Distr^fn;
INT .Distr^prog^file[0:11] :=
["$SYSTEM SYSTEM EMSDIST "];
INT SSError;
INT Ems^err;
INT .term^buf [0:66];
STRUCT .Startup^msg ( Startup^Msg^def );
LITERAL evt^text^len = 78;
LITERAL num^evt^lines = 2;
INT .evt^text^buf
[0:(evt^text^len * num^evt^lines) - 1];
INT .actual^len [0:num^evt^lines-1];
INT .coll^name[0:11] := [ "$0", 11*[" "] ];
INT .filt^name[0:11] := [ 12 *[" "] ];
-- ************* SPI Definitions ******************
--
-- Declare the EMS subsystem ID.
--
STRUCT .zEms^Val^ssid( zEms^Val^SSID^def );
STRUCT .Spi^Buffer ( zEms^DDL^Msg^Buffer^def );
STRUCT .Spi^Buffer^Copy ( zEms^DDL^Msg^Buffer^def );
INT SPI^BufLen := $len (Spi^Buffer);