TR3271 Management Programming Manual

TR3271 EVENT MANAGEMENT
Example 2
Example 2
The following filter selects all the critical TR3271 event
messages that have a particular line as their subject.
-- Filter that selects only critical TR3271 event messages
-- that have as their subject token a particular line name.
[#SET ztr3^val^ssid
[zspi^val^tandem].[zspi^ssn^ztr3].[ztr3^val^version]]
FILTER critical^tr3271^msgs;
BEGIN
IF zspi^tkn^ssid = SSID(ztr3^val^ssid) THEN
-- This is an TR3271 event message
IF zems^tkn^emphasis = [zspi^val^true] THEN
-- This is a critical event message
ELSE
-- This is not a critical event message
FAIL
ELSE
-- This is not an TR3271 event message
FAIL;
END; -- of critical^tr3271^msgs
7-73