OSI/AS and OSI/TS Supplement (Includes RFC-1006 Support)

General OSI/AS and OSI/TS Manual Changes and Corrections
107751 Tandem Computers Incorporated 8–7
END;
?PAGE
! ***********************************************************
! * spi^cmd^set^source *
! ***********************************************************
! This procedure builds an SPI command that directs the
! distributor to use a collector as the source of event
! messages.
INT PROC spi^cmd^set^source;
BEGIN
! Initialize spi^buf for distributor CONTROL command.
spi^err := SSINIT (spi^buf, ZEMS^VAL^BUFLEN,
zems^val^ssid,
ZSPI^VAL^CMDHDR, ZEMS^CMD^CONTROL);
IF spi^err <> ZSPI^ERR^OK THEN
CALL DEBUG;
! Place connect-source-collector token in the buffer.
spi^err := SSPUTTKN(spi^buf, ZEMS^TKN^CONNECT^SRC^COLL,
coll^name);
IF spi^err <> ZSPI^ERR^OK THEN
CALL DEBUG;
! Send the command to the distributor.
spi^err := send^spi^cmd;
RETURN spi^err;
END;
?PAGE
! ***********************************************************
! * spi^cmd^load^filter *
! ***********************************************************
! This procedure builds an SPI command that loads a filter
! into the distributor.
INT PROC spi^cmd^load^filter;
BEGIN
! Initialize spi^buf for distributor CONTROL command.
spi^err := SSINIT (spi^buf, ZEMS^VAL^BUFLEN,
zems^val^ssid,
ZSPI^VAL^CMDHDR, ZEMS^CMD^CONTROL);
IF spi^err <> ZSPI^ERR^OK THEN
CALL DEBUG;
! Place load-filter token in the buffer.
spi^err := SSPUTTKN(spi^buf, ZEMS^TKN^FILTERFILE,
filt^name);
IF spi^err <> ZSPI^ERR^OK THEN