Expand Management Programming Manual

EVENT MANAGEMENT
Modifications to Example in EMS Manual
In the SOURCE $SYSTEM.SYSTEM.EXTDECS0 statement following the
declarations, add the following procedures to the list: EMSINIT,
EMSADDTOKENS, WRITEREADX, FNAMECOLLAPSE, FNAMEEXPAND, and NUMOUT.
In place of the get^cpu^num procedure, substitute the following
procedures, in the order listed:
• The procedures open^scp, handle^spi^error, call^scp,
build^cmd, and abort^line from the example at the end of
Section 7.
• The get^threshold procedure given below under "Additional TAL
Source Modules."
In the spi^cmd^load^filter procedure, change the SSPUTTKN call
that places the filter-parameter token in the buffer to the
following:
spi^err := SSPUTTKN (spi^buf, myap^tkn^quality^threshold,
line^quality^threshold, !cnt!,
myap^val^ssid);
In place of the displ^event procedure, substitute the
abort^low^qual^line procedure given below under "Additional TAL
Source Modules."
In getevent^loop, replace the call to display the event message
with the following:
! Bring down the line and generate a custom event
! message indicating that the line was brought down
CALL abort^low^qual^line(event^buf);
In the main procedure, after the initialization of zems^val^ssid,
insert the following:
zexp^val^ssid ':=' [ZSPI^VAL^TANDEM,
ZSPI^SSN^ZEXP,
ZEXP^VAL^VERSION];
Delete the call to get^cpu^num and substitute the following:
! Prompt user for the line quality threshold
CALL get^threshold;
IF (error := open^scp) THEN CALL STOP;
8-94