OSI/AS Management Programming Manual

Event-Retrieval Example

Sample Programs

056785 Tandem Computers Incorporated C–31

-- Place the connect-source-collector token in the buffer.

SSError := SSPutTkn( Spi^Buffer,

zEms^Tkn^Connect^Src^Coll,

coll^name );

IF ( SSError <> zSpi^Err^OK ) THEN

CALL Debug;

-- Send the command to the distributor.

SSError := send^spi^cmd;

RETURN SSError;

END; -- proc spi^cmd^set^source;

? PAGE "spi^cmd^load^filter"

-------------------------------------------------------------

-- SPI^Cmd^LOAD^FILTER -

-- This procedure builds an SPI command that loads a filter

-- into the distributor.

-- input - Spi^Buffer, filt^name

-- output - SSError

-------------------------------------------------------------

INT PROC spi^cmd^load^filter;

BEGIN

-- Initialize Spi^Buffer for distributor CONTROL command.

SSError := SSInit( Spi^Buffer,

zEms^Val^BufLen,

zEms^Val^ssid,

zSpi^Val^CmdHdr,

zEms^Cmd^Control );

IF ( SSError <> zSpi^Err^OK ) THEN

CALL Debug;

-- Place the filter-file token in the buffer.

SSError := SSPutTkn( Spi^Buffer,

zEms^Tkn^FilterFile,

filt^name );

IF ( SSError <> zSpi^Err^OK ) THEN

CALL Debug;