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–11
! Create a name for the distributor process.
CALL CREATEPROCESSNAME (distr^name);
IF <> THEN
CALL DEBUG;
! On the initial open (no SPI), the distributor will get
! the same startup message read by the application, but
! with a parameter string for type (C = CONSUMER).
s^startup^param ':=' "TYPE C";
startup^msg[36] := 0; ! Terminate startup message.
! Start the distributor process.
CALL NEWPROCESS (distr^prog^file, , , , , error,
distr^name);
IF ( ERROR.<0:7> > 0 ) THEN
CALL DEBUG;
! Open the distributor to write the startup message.
CALL OPEN (distr^name, distr);
IF <> THEN
CALL DEBUG;
! Write the startup message--no parameter string.
CALL WRITE (distr, startup^msg, 74 );
! Check for errors--error 70 is continuation.
! (ASSIGNS and PARAMS)
CALL FILEINFO (distr, error );
IF ( NOT ( (error = 0) OR ( error = 70) ) ) THEN
CALL DEBUG;
CALL CLOSE ( distr ); ! Don't send ASSIGNs & PARAMs.
! Get filter name from terminal.
CALL get^filter^name;
! Reopen the distributor for SPI commands and responses.
s^distr^qual ':=' "#ZSPI";
CALL OPEN ( distr^name, distr );
IF <> THEN
CALL DEBUG;
! 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);