EMS FastStart Manual

Building Your Application for Event Generation

EMS FastStart Manual–133701

6-15

Event-Specific Modifications

Specify Event Types

Events are classified as one of four types: Informative (the default type), Action

attention, Action completion, or Critical. This section describes the event types and

includes sample COBOL85 code to show how to generate each type. The sample code is

part of the COBOL85 ATM example listed in Appendix C, COBOL85 Program

Example, and is included on the ISV. For a more detailed description on the event types,

refer the Event Management Service (EMS) Manual.

Informative

An informative event message informs you about any system or program status (for

example, the program started normally). This is the default event message type for EMS

FastStart unless you specify otherwise. See Example 6-9 below.

Action Attention

An action-attention event message means operator intervention is required (for example,

a message to change a tape or add paper to a printer). This is the first half of a pair with

an action-completion event message being the second half. These two events must be

linked. To tie each action-attention event with a specific action-completion event, move

the same user-action-id value to action-id for both the action-attention events and action-

completion events and use the same subject value for each. See Example 6-10

below.

Example 6-8. Copy Statement Example from the COBOL85 ATM Sample

Program

COPY egen-record OF "$data.atm.atm1cob".

COPY atm-ssid OF "$data.atm.atm1cob".

COPY egen-interface-definitions OF "$data.atm.atm1cob".

COPY user-event-numbers OF "$data.atm.atm1cob".

COPY user-action-id OF "$data.atm.atm1cob".

Example 6-9. Sample Code for Generating Informative Events

GENERATE-INFORMATIVE-EVENT.

MOVE INFORMATIVE-EVENT TO event-type OF egen-record.

MOVE ATM-EVT-UP TO event-number OF egen-record.

MOVE "SFMAIN01" 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.