HP TACL Programming Manual page 173

Figure 7-3. Generating an EMS Event (Page 3 of 3)
== Main logic
==================================================
#SET collector $0
#SET action_id 0
== Open the Collector for WRITEREADs; $0 expects a WRITEREAD
#SET evt_error [#REQUESTER /WAIT/ READ [collector] &
== If open fails, display an error message.
== an event message.
[#IF [evt_error] |THEN|
#OUTPUT *ERROR* #REQUESTER OPEN error [evt_error]
| ELSE |
[#CASE %1%
|1|
build_evt 9997
|2|
build_evt 9998 -1
|3|
build_evt 9997
|OTHERWISE|
#OUTPUT Invalid argument.
#OUTPUT 1 (event),
#OUTPUT 2 (action event), or
#OUTPUT 3 (critical event).
]
]
== Close the Collector
#SET evt_error [#REQUESTER /WAIT/ close req_read]
[#IF [evt_error] |THEN|
#OUTPUT *ERROR* #REQUESTER CLOSE error [evt_error]
]
#UNFRAME
107365 Tandem Computers Incorporated
req_error req_read req_prompt]
0 0 Test: Calm event
0 Test: Action event
0 -1 Test: Critical event
Must be:
Using Programmatic Interfaces
Using EMS
Otherwise send
7–15