ViewPoint Manual

Customizing ViewPoint
ViewPoint Manual—426801-001
6-6
The Default Alternate-Events Filter
Figure 6-2. Default Alternate-Events Filter Source Code (page 1 of 4)
-----------------------------------------------------------------------------
----------
-- ViewPoint default alternate event filter. --
-- This filter processes parameters which may be specified --
-- from the second page of the Alternate Events --
-- Configuration screen. ZEMS and ZVPT TACL definition --
-- must be loaded to compile this filter. --
-----------------------------------------------------------------------------
----------
[#def zems^val^ssid text |body|[zspi^val^TANDEM].[zspi^ssn^zems].0]
[#def zvpt^val^ssid text |body|[zspi^val^TANDEM].[zspi^ssn^zvpt].0]
[#DEF init^template^key STRUCT
BEGIN
STRUCT fields;
BEGIN
SSID template^ssid value [zvpt^val^ssid];
INT2 template^code value [zvpt^tkn^inittemplate];
INT2 template^value value [zvpt^val^inittemplate^null];
END;
BYTE numbers(0:19) REDEFINES fields;
END;
]
[#def InsertCommas macro |body|
[#delta/commands ed^InsertCommas/%*%]
]
[#def ed^InsertCommas delta |body|
J<:S $;-DI,$>
]
-----------------------------------------------------------
-- 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
CHAR Z^OWNER(0:7);
INT Z^NUMBER;
UINT Z^VERSION;
END;
]