OSI/TS Management Programming Manual

Sample Programs
C–16 056786 Tandem Computers Incorporated
PASS;
END;
Filter Example: Messages
Reporting DSM Errors from
NSP Processes
The following filter selects the event messages, originating from OSI/TS on system
\MYSYS, that reflect failure to establish a transport connection because of a DSM error
generated by X25AM or TLAM.
== File: EXFLT2
==
== This EMS filter selects the event messages,
== originating from the OSI/TS subsystem on the system
== \MYSYS, that reflect failure to establish a transport
== connection because of a DSM error generated by X25AM
== or TLAM.
==
FILTER zos4^nsp^or^tsp^errs;
BEGIN
--Initialize subsystem ID
[#set zos4^val^ssid
[zspi^val^tandem].[zspi^ssn^zos4].[zos4^val^version] ]
IF (zems^tkn^system = [#SYSTEMNUMBER \MYSYS] AND
zspi^tkn^ssid = ssid(zos4^val^ssid)) THEN
IF (ZEMS^TKN^EVENTNUMBER = [zos4^evt^nsp^dsm^err]) THEN
PASS;
END;
Command File to Compile
Filter Examples
Before installing a filter, you must compile it using the EMS filter compiler. Since
filters are based on TACL, compilation requires that you load in the TACL versions of
the definition files containing the definitions you use in your filter. You can use the
following TACL command file to load the definitions and compile the four example
filters. It produces filter object files named FLTR1 and FLTR2. The source code file for
this example is provided as part of the OSI/TS software. It resides (by default) in
$SYSTEM.ZOSITS.EXEMF1. Note that to use this command file, you must have
OSI/AS and both X25AM and TLAM; otherwise, you must delete the commands that
pertain to the subsystems you are not using.
comment File: EXEMF1
comment
fup purge oFILTER!
#push dummy
#load /keep 1, loaded dummy/ $system.zspidef.zspitacl
#load /keep 1, loaded dummy/ $system.zspidef.zcomtacl
#load /keep 1, loaded dummy/ $system.zspidef.zemstacl
#load /keep 1, loaded dummy/ $system.zspidef.zositacl
#load /keep 1, loaded dummy/ $system.zspidef.zos4tacl
#load /keep 1, loaded dummy/ $system.zspidef.zx25tacl
#load /keep 1, loaded dummy/ $system.zspidef.zlamtacl
#pop dummy
emf /in EXFLT1/ FLTR1
emf /in EXFLT2/ FLTR2
Once you have run this command file, you can use the event-retrieval example in the
next subsection to install the filter of your choice and retrieve selected event messages.