EMS FastStart Manual

Building Your Application for Event Generation
EMS FastStart Manual–133701
6-17
Specify Event Subject
Critical
A critical event message informs you that an event such as a system error, component
failure, or security breach has occurred and requires immediate attention. See
Example 6-13
below.
Specify Event Subject
An event message is generated by a subsystem whenever a significant occurrence is
detected. An event message includes many kinds of information besides “what
happened.” Every event message must include a subject: the name or the number of the
hardware or software component most directly involved in the event.
Since each event can have a different subject, EMS FastStart has implemented a facility
which provides the capability to select a unique subject for each event. In fact, any field
name that you declare in the ACF can become the subject of an event. However, you are
restricted to one subject per event and the field which will become the subject cannot be
added as another field in the event record.
Example 6-12. Sample Code for Generating Action Completion Events with
Suppress Display
GENERATE-ACTION-COMPLETION.
PERFORM 300-initialize-egen-record.
MOVE ACTION-COMPLETION-EVENT TO event-type OF egen-record.
MOVE COBOL-VAL-TRUE TO SUPPRESS-DISPLAY OF egen-record.
MOVE ATM-ACTION-ID-1 TO action-id OF egen-record.
MOVE ATM-EVT-BACK-ONLINE TO event-number OF egen-record.
MOVE "SFMAIN02" TO atm-name OF egen-record.
MOVE "atm-name" TO subject-field-name OF egen-record.
MOVE "245 A St., San Francisco" TO atm-location OF egen-record.
ENTER TAL "Egen" USING egen-record, file-number
GIVING return-code.
IF return-code NOT = ZERO
PERFORM 400-validate-return-code.
Example 6-13. Sample Code for Generating Critical Events
GENERATE-CRITICAL-EVENT.
MOVE CRITICAL-EVENT TO event-type OF egen-record.
MOVE ATM-EVT-SECURITY-BREACH TO event-number OF egen-record.
MOVE "SACTO02" TO atm-name OF egen-record.
MOVE "atm-name" TO subject-field-name OF egen-record.
MOVE "230 State St. Sacramento" TO atm-location OF egen-record.
MOVE 23457320 TO atm-account-num OF egen-record.
MOVE 3 TO atm-retry-limit OF egen-record.
ENTER TAL "Egen" USING egen-record, file-number
GIVING return-code.
IF return-code NOT = ZERO
PERFORM 400-validate-return-code.