Virtual Hometerm Subsystem (VHS) Manual (G06.24+, H06.04+, J06.03+)

Virtual Hometerm Subsystem (VHS) Manual—429311-002
I-1
I ViewPoint Event Filter
--
-- NonStop VHS - T8975D43 - (07JUL96)
--
-- File Type: EMF Source file
--
-- Source File Name: VHSFILTS
--
-- Object File Produced: VHSFILTO
--
-- Generation Time: May 28, 1996 16:47:32
--
-- Language Compiler Required: Event Management Filter (EMF)
--
-- Compiler Version Required: C20
--
-- Compiler Command: EMF/ IN vhsfilts / vhsfilto
--
-- Compiler Note: You may have to change the two first lines
-- to specify the location of the ZSPITACL and
-- ZEMSTACL TACL definition files.
--
-- File Description: This file contains a filter which passes only
-- event messages generated by a specific subsystem. This filter is
-- compatible with ViewPoint and can be used to change the meaning of
-- events to be displayed.
-----------------------------------------------------------------------
[SINK [#LOAD $SYSTEM.ZSPIDEF.ZSPITACL]]
[SINK [#LOAD $SYSTEM.ZSPIDEF.ZEMSTACL]]
[#SET ZEMS^VAL^SSID [ZSPI^VAL^TANDEM].[ZSPI^SSN^ZEMS].0]
[#DEF zvhs^val^ssid STRUCT
BEGIN
SSID x VALUE TANDEM.138.C30;
END;
] == End DEF
FILTER VHS^DEFAULT^FILTER;
BEGIN SSID ( ZEMS^VAL^SSID )
IF ZSPI^TKN^SSID = SSID ( ZVHS^VAL^SSID ) THEN
BEGIN
--
-- Fails on suppress^display events which are not
-- action-completion.
--
IF ZEMS^TKN^SUPPRESS^DISPLAY = [ZSPI^VAL^TRUE] THEN
BEGIN
IF TOKENPRESENT ( ZEMS^TKN^ACTION^NEEDED ) AND
ZEMS^TKN^ACTION^NEEDED = [ZSPI^VAL^FALSE] THEN PASS 3
ELSE
FAIL;
END;