EMS FastStart Manual

COBOL85 Program Example
EMS FastStart Manual–133701
C-3
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.
?HEADING "215-ATM-BACK-ONLINE SECTION"
/
215-atm-back-online.
*--------------------------------------------------------------------------
* EVENT # 3: ATM IS BACK ONLINE.
*
* The fields within the egen-record which are used for event # 3:
*
* event-type PIC S9(4).
* event-number NATIVE-2.
* atm-name PIC X(8).
* atm-location PIC X(24).
*--------------------------------------------------------------------------
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 ATM-VAL-TRUE TO suppress-display 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.
?HEADING "220-ATM-ACCT-INSUF-FUNDS SECTION"
/
220-atm-acct-insuf-funds.
*--------------------------------------------------------------------------
* EVENT # 2: ATM INSUFFICIENT FUNDS IN USER ACCOUNT.
*
* The fields within the egen-record which are used for event # 2:
*
* event-type PIC S9(4).
* event-number NATIVE-2.
* atm-name PIC X(8).
* atm-location PIC X(24).
* atm-account-num NATIVE-4.
*--------------------------------------------------------------------------
PERFORM 300-initialize-egen-record.
MOVE INFORMATIVE-EVENT TO event-type OF egen-record.
MOVE ATM-EVT-ACCT-INSUF-FUNDS TO event-number OF egen-record.
MOVE "OAKWEST1" TO atm-name OF egen-record.
MOVE "atm-name" TO subject-field-name OF egen-record.
MOVE "245 Oak St., Oakland" TO atm-location OF egen-record.
MOVE 34503933 TO atm-account-num OF egen-record.