EMS FastStart Manual

COBOL85 Program Example
EMS FastStart Manual–133701
C-2
* egen-record & atm-ssid:
* COPY libraries specific to each ACF.
*
* egen-interface-definitions:
* COPY library that is used to interface between user
* application and Egen.
*
* atm-event-numbers, atm-action-id & atm-constant-values:
* COPY libraries that are defined by the application
* programmer and sourced by the compilation of the
* main DDL.
*----------------------------------------------------------------------
COPY egen-record OF "atm1cob".
COPY atm-ssid OF "atm1cob".
COPY egen-interface-definitions OF "atm1cob".
COPY atm-event-numbers OF "atm1cob".
COPY atm-action-id OF "atm1cob".
COPY atm-constant-values OF "atm1cob".
?HEADING "START-OF-PROGRAM SECTION"
/
PROCEDURE DIVISION.
100-main.
PERFORM 205-open-collector.
PERFORM 210-atm-up.
PERFORM 215-atm-back-online.
PERFORM 220-atm-acct-insuf-funds.
PERFORM 230-atm-low-on-cash.
PERFORM 240-atm-down.
PERFORM 250-atm-security.
PERFORM 260-atm-hardware.
PERFORM 365-close-collector.
STOP RUN.
?HEADING "205-OPEN-COLLECTOR SECTION"
/
205-open-collector.
MOVE ZERO TO file-number.
ENTER TAL "Open^egen^collector" USING file-number, omitted, error-detail
GIVING return-code.
IF return-code IS NOT EQUAL TO ZERO
PERFORM 400-validate-return-code.
?HEADING "210-ATM-UP SECTION"
/
210-atm-up.
*--------------------------------------------------------------------------
* EVENT # 1: ATM IS UP:
*
* The fields within the egen-record which are used for event # 1:
*
* event-type PIC S9(4).
* event-number NATIVE-2.
* atm-name PIC X(8).
* atm-location PIC X(24).
*--------------------------------------------------------------------------
PERFORM 300-initialize-egen-record.