Expand Management Programming Manual

EVENT MANAGEMENT
Modifications to Example in EMS Manual
Modifications to Example in EMS Manual
To modify the basic example in the Event Management Service (EMS)
Manual , follow the instructions given below.
In the instructions for running the TAL version, insert the
following lines immediately after the line
"LDQ $SYSTEM.ZSPIDEF.ZEMSTACL":
LDQ $SYSTEM.ZSPIDEF.ZCOMTACL
LDQ $SYSTEM.ZSPIDEF.ZEXPTACL
At the end of the DDL source file, add the following lines:
! Filter parameter
TOKEN-CODE myap-tkn-quality-threshold
VALUE IS 2
TOKEN-TYPE IS ZSPI-TYP-INT.
! Event message generated by application
CONSTANT myap-evt-downed-low-line VALUE IS 1.
In place of the filter source file given in the basic example,
substitute the filter given below under "Filter Source File."
In the TAL source file, change the comment about getting the CPU
number from the user to a comment about getting the line-quality
threshold.
Immediately after the lines that turn off LIST, source in
MYAPTAL, and turn on LIST again, insert the following:
?NOLIST, SOURCE $SYSTEM.ZSPIDEF.ZCOMTAL
?LIST
?NOLIST, SOURCE $SYSTEM.ZSPIDEF.ZEXPTAL
?LIST
In the global declarations of type INT, replace cpu^num with
line^quality^threshold.
To the global declarations, add the following:
INT scp^file^num;
STRUCT .exp^buf(zexp^ddl^msg^buffer^def);
Immediately after the declaration of myap^val^ssid, insert the
following declaration for the EXPAND subsystem ID:
STRUCT .zexp^val^ssid(zexp^val^ssid^def);
8-93