OSI/MHS Configuration and Management Manual

Managing Your OSI/MHS Subsystem
OSI/MHS Configuration and Management Manual—424827-003
7-32
Using the EMS Analyzer
[zspi^val^tandem].[zspi^ssn^zmhs].[zmhs^val^version] ]
[#set zcmk^val^ssid
[zspi^val^tandem].[zspi^ssn^zcmk].[zcmk^val^version] ]
[#set zcom^val^ssid
[zspi^val^tandem].[zspi^ssn^zcom].[zcom^val^version] ]
[#set zems^val^ssid
[zspi^val^tandem].[zspi^ssn^zems].[zems^val^version] ]
[#set zspi^val^ssid
[zspi^val^tandem].[zspi^ssn^zspi].[zspi^val^version] ]
if zspi^tkn^ssid = ssid(zos4^val^ssid) then
pass
else
if zspi^tkn^ssid = ssid(zosi^val^ssid) then
pass
else
if zspi^tkn^ssid = ssid(zcom^val^ssid) then
pass
else
if zspi^tkn^ssid = ssid(zx25^val^ssid) then
pass
else
if zspi^tkn^ssid = ssid(zlam^val^ssid) and
zems^tkn^eventnumber <> [zlam^evt^ctlr^stats^reset] then
pass
else
if zspi^tkn^ssid = ssid(zmhs^val^ssid) AND
( (zems^tkn^eventnumber <> [zmhs^evt^acct^msg] ) AND
(zems^tkn^eventnumber <> [zmhs^evt^acct^recip^info]) AND
(zems^tkn^eventnumber <> [zmhs^evt^acct^store] ) AND
(zems^tkn^eventnumber <> [zmhs^evt^acct^defer] )) THEN
pass
else
fail;
end;
FILTACCO:
-- This is the source filter for MHS accounting events,
--
[#set zmhs^val^ssid [zspi^val^tandem].[zspi^ssn^zmhs].0]
filter select^mhs^acct^events;
begin
if zspi^tkn^ssid = ssid (zmhs^val^ssid) then
begin
if ((zems^tkn^eventnumber = [zmhs^evt^acct^msg ] ) OR
(zems^tkn^eventnumber = [zmhs^evt^acct^recip^info] ) OR
(zems^tkn^eventnumber = [zmhs^evt^acct^store] ) OR
(zems^tkn^eventnumber = [zmhs^evt^acct^defer] ))
THEN
pass
else
fail;
end;
end;