EMS FastStart Manual

COBOL85 Program Example
EMS FastStart Manual–133701
C-5
* EVENT # 201 ATM SECURITY BREACH.
*
* The fields within the egen-record which are used for event # 201:
*
* event-type PIC S9(4).
* event-number NATIVE-2.
* atm-name PIC X(8).
* atm-location PIC X(24).
* atm-account-num NATIVE-4.
* atm-retry-limit NATIVE-2.
*--------------------------------------------------------------------------
PERFORM 300-initialize-egen-record.
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.
?HEADING "260-ATM-HARDWARE SECTION"
/
260-atm-hardware.
*--------------------------------------------------------------------------
* EVENT # 202: ATM-HARDWARE FAILURE EVENT.
*
* The fields within the egen-record which are used for event # 202:
*
* event-type PIC S9(4).
* event-number NATIVE-2.
* atm-name PIC X(8).
* atm-location PIC X(24).
* atm-hardware-component PIC X(24).
* atm-hardware-subcomponent PIC X(24).
* atm-serial-number NATIVE-4.
* atm-sense-status NATIVE-4.
*--------------------------------------------------------------------------
PERFORM 300-initialize-egen-record.
MOVE CRITICAL-EVENT TO event-type OF egen-record.
MOVE ATM-EVT-HW-FAILURE TO event-number OF egen-record.
MOVE "LACENT99" TO atm-name OF egen-record.
MOVE "atm-name" TO subject-field-name OF egen-record.
MOVE "125 8th Ave. Los Angeles" TO atm-location OF egen-record.
MOVE "Cash Dispenser" TO atm-hw-component OF egen-record.
MOVE "321561ac" TO atm-hw-subcomponent OF egen-record.
MOVE 231234093 TO atm-serial-number OF egen-record.
MOVE 0101110101 TO atm-sense-status OF egen-record.
ENTER TAL "Egen" USING egen-record, file-number
GIVING return-code.
IF return-code NOT = ZERO
PERFORM 400-validate-return-code.