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

General OSI/AS and OSI/TS Manual Changes and Corrections
8–10 107751 Tandem Computers Incorporated
spi^err := SSMOVETKN(ZSPI^TKN^CONTEXT,
spi^buf, 1, ! source
sav^buf, 1); ! destination
IF spi^err <> ZSPI^ERR^OK THEN
CALL DEBUG;
! Move the updated command to spi^buf for next time
! through the loop.
spi^buf ':=' sav^buf FOR $LEN(spi^buf) BYTES;
END; ! END of WHILE loop
END;
?PAGE
! ***********************************************************
! * MAIN procedure - dist^intfc *
! ***********************************************************
! This MAIN procedure starts an EMS consumer distributor and
! calls procedures that use SPI commands to connect a source
! collector, to load a filter, and to position the
! distributor within the log files. Then the procedure
! calls the getevent^loop procedure to retrieve and
! process event messages.
PROC dist^intfc MAIN;
BEGIN
! Initialize subsystem IDs.
zems^val^ssid ':=' [ZSPI^VAL^TANDEM,
ZSPI^SSN^ZEMS,
ZEMS^VAL^VERSION];
zos4^val^ssid ':=' [ZSPI^VAL^TANDEM,
ZSPI^SSN^ZOS4,
ZOS4^VAL^VERSION];
! Get terminal name and open terminal.
CALL MYTERM (term^name );
CALL OPEN (term^name, term^file^num);
! Open $RECEIVE file.
CALL OPEN (rcv^name, rcv, , 1);
IF <> THEN
CALL DEBUG;
! Read startup message from $RECEIVE.
CALL READUPDATE (rcv, startup^msg, $occurs(startup^msg),
ct^rd);
IF <> THEN
CALL DEBUG;
CALL REPLY ( , , , , 0 );
IF <> THEN
CALL DEBUG;