AM3270 Management Programming Manual

EVENT MANAGEMENT
Example 2
Example 2
The following filter selects all the critical AM3270 event
messages that have a particular line as their subject.
-- Filter that selects only critical AM3270 event messages
-- that have as their subject token a particular line name.
[#SET zam3^val^ssid
[zspi^val^tandem].[zspi^ssn^zam3].[zam3^val^version]]
FILTER critical^am3270^msgs;
BEGIN
IF zspi^tkn^ssid = SSID(zam3^val^ssid) THEN
-- This is an AM3270 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 AM3270 event message
FAIL;
END; -- of critical^am3270^msgs
7-73