Expand Management Programming Manual
 EVENT MANAGEMENT
 Example 2
 Example 2
 The following filter selects all critical EXPAND event messages
 that have a particular device as their subject.
 -- Filter that selects only critical EXPAND event messages
 -- that have as their subject token a particular device name
 [#SET zexp^val^ssid
 [zspi^val^tandem].[zspi^ssn^zexp].[zexp^val^version]]
 FILTER critical^expand^msgs(
 SSID(my^ssid,my^device^name) REQUIRED);
 BEGIN
 IF zspi^tkn^ssid = SSID(zexp^val^ssid) THEN
 -- This is an EXPAND event message
 IF zems^tkn^emphasis = [zspi^val^true] THEN
 -- This is a critical event message
 IF zems^tkn^ldevname = my^device^name THEN
 -- This event message concerns the device
 -- with the name my^device^name
 PASS
 ELSE
 -- This event message concerns some other
 -- device
 FAIL
 ELSE
 -- This is not a critical event message
 FAIL
 ELSE
 -- This is not an EXPAND event message
 FAIL;
 END; -- of critical^expand^msgs
 For a third example of a simple filter, see the event-message
 retrieval example that follows.
 8-91










