OSI/TS Management Programming Manual

Sample Programs
C–26 056786 Tandem Computers Incorporated
! Tell distributor to use collector log files as the
! source of event messages.
error := spi^cmd^set^source;
IF error THEN goto exit;
! Load filter into distributor.
error := spi^cmd^load^filter;
IF error THEN goto exit;
! Retrieve and display event messages.
CALL getevent^loop;
exit:
CALL CLOSE (term^file^num);
CALL STOP;
END;