TCP/IP TELNET Management Programming Manual

Examples of Filters
Event Management
53474 Tandem Computers Incorporated 7–21
Example 2 The following filter selects all the critical TELNET event messages that are not fatal
and that have a particular process as their subject.
— Filter that selects only critical TELNET event messages
— that are not fatal and have as their subject a particular
— process name.
[#SET ztnt^val^ssid
[zspi^val^tandem].[zspi^ssn^ztnt].[ztnt^val^version]]
FILTER warning^telnet^msgs(
SSID(my^ssid,my^process^name) REQUIRED);
BEGIN
IF zspi^tkn^ssid = SSID(ztnt^val^ssid) THEN
— This is a TELNET event message
IF zems^tkn^emphasis = [zspi^val^true] THEN
— This is a critical event message
IF ztnt^tkn^sev = [ztnt^val^sev^warn] THEN
—This is a warning
IF zcom^tkn^subj^proc = my^process^name THEN
— This event message concerns the TELNET
— process with the name my^process^name
PASS
ELSE
— This event message concerns some other
— TELNET process
FAIL
ELSE
— This is not a warning
FAIL
ELSE
— This is not a critical event message
FAIL
ELSE
— This is not a TELNET event message
FAIL;
END; — of warning^telnet^msgs