ViewPoint Manual

Supplemental Information for D-Series Systems
ViewPoint Manual—426801-001
E-7
Extraneous Parts of Filter
-----------------------------------------------------------
-- We need to #def our own replica of an ssid structure.
-- This is necessary because the one in ZSPITACL does not
-- have the fields broken out; instead that structure just
-- consists of a single field of data type ssid. We need
-- to refer to the fields separately in this filter.
-----------------------------------------------------------
[#def zspi_ddl_ssid STRUCT
BEGIN
CHAR Z^OWNER(0:7);
INT Z^NUMBER;
UINT Z^VERSION;
END;
]
FILTER Viewpt^alt^default^filter (
ssid(zvpt^val^ssid, zvpt^fltr^select ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^discard ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^systemname ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^ssid ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^eventnumber ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^cpu ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^pin ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^processname ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^eventtext ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^custom^number) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^custom^file ) OPTIONAL,
ssid(zvpt^val^ssid, zvpt^fltr^custom^string) OPTIONAL );
begin ssid(zvpt^val^ssid)
if zvpt^fltr^select = [zspi^val^true] or
zvpt^fltr^discard = [zspi^val^true] then
begin
-- Test for matching system name (if provided).
if ( not tokenpresent(zvpt^fltr^systemname) or
zvpt^fltr^systemname =
decompose(ssid(zems^val^ssid,
zems^tkn^xsenderid^pd),system name)
) and
-- Test for matching subsystem id (if provided).
( not tokenpresent(zvpt^fltr^ssid) or
( zvpt^fltr^ssid.zspi_ddl_ssid:z^owner =
ssid(zems^val^ssid,zspi^tkn^ssid).
zspi_ddl_ssid:z^owner
and zvpt^fltr^ssid.zspi_ddl_ssid:z^number =
ssid(zems^val^ssid,zspi^tkn^ssid).
zspi_ddl_ssid:z^number
)
) and
Figure E-2. D-Series Default Alternate-Events Filter (page 2 of 4)