EMS FastStart Manual
Building Your Application for Event Generation
EMS FastStart Manual–133701
6-16
Specify Event Types
Action Completion
An action-completion event message informs you that the action required in an action-
attention event message was completed and the job is continuing. Note in this
Example 6-11, that the user-action-id (user-action-id-1) from the action-attention
example above was moved into the field action-id. Also, the same subject value was
used.
Example 6-12
shows sample code for generating action completion events with the
display suppressed.
Example 6-10. Sample Code for Generating Action-Attention Events
GENERATE-ACTION-ATTENTION.
PERFORM 300-initialize-egen-record.
MOVE ACTION-ATTENTION-EVENT TO event-type OF egen-record.
MOVE USER-ACTION-ID-1 TO action-id OF egen-record.
MOVE ATM-EVT-LOW-ON-CASH 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-11. Sample Code for Generating Action-Completion Events
GENERATE-ACTION-COMPLETION.
PERFORM 300-initialize-egen-record.
MOVE ACTION-COMPLETION-EVENT TO event-type 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.