Compaq COBOL AAQ2G1FTK User Manual page 238

Processing Files and Records
6.5 Updating Files
Example 6–43 (Cont.) Updating an Indexed File Randomly
FILE-CONTROL.
SELECT FLAVORS
DATA DIVISION.
FILE SECTION.
FD FLAVORS.
01 ICE-CREAM-MASTER.
02 ICE-CREAM-MASTER-KEY
02 ICE-CREAM-MASTER-DATA.
03 ICE-CREAM-STORE-CODE
03 ICE-CREAM-STORE-ADDRESS
03 ICE-CREAM-STORE-CITY
03 ICE-CREAM-STORE-STATE
WORKING-STORAGE SECTION.
01 HOLD-ICE-CREAM-MASTER
01 PROGRAM-STAT
88 OPERATOR-STOPS-IT
88 LETS-SEE-NEXT-STORE
88 NO-MORE-DUPLICATES
PROCEDURE DIVISION.
A000-BEGIN.
OPEN I-O FLAVORS.
PERFORM A030-RANDOM-READ UNTIL OPERATOR-STOPS-IT.
A020-EOJ.
DISPLAY "END OF JOB".
STOP RUN.
A030-RANDOM-READ.
DISPLAY "Enter key".
ACCEPT ICE-CREAM-MASTER-KEY.
PERFORM A100-READ-INPUT-BY-PRIMARY-KEY
DISPLAY " Do you want to terminate the session?".
PERFORM A040-GET-ANSWER UNTIL PROGRAM-STAT
IF PROGRAM-STAT
A040-GET-ANSWER.
A100-READ-INPUT-BY-PRIMARY-KEY.
READ FLAVORS KEY IS ICE-CREAM-MASTER-KEY
DISPLAY ICE-CREAM-MASTER.
PERFORM A200-READ-BY-ALTERNATE-KEY UNTIL NO-MORE-DUPLICATES.
A100-READ-INPUT-EXIT.
EXIT.
A200-READ-BY-ALTERNATE-KEY.
DISPLAY "Do you want to see the next store in this state?".
PERFORM A040-GET-ANSWER UNTIL PROGRAM-STAT
IF PROGRAM-STAT
MOVE "2" TO PROGRAM-STAT
READ FLAVORS KEY IS ICE-CREAM-STORE-STATE
6–58 Processing Files and Records
ASSIGN TO "DAIRY"
ORGANIZATION IS INDEXED
ACCESS MODE IS RANDOM
RECORD KEY IS ICE-CREAM-MASTER-KEY
ALTERNATE RECORD KEY IS ICE-CREAM-STORE-STATE
ALTERNATE RECORD KEY IS ICE-CREAM-STORE-CODE.
THROUGH A100-READ-INPUT-EXIT.
= "Y" MOVE "1" TO PROGRAM-STAT.
DISPLAY "Please answer Y or N"
ACCEPT PROGRAM-STAT.
INVALID KEY DISPLAY "Master does not exist - Try again"
GO TO A100-READ-INPUT-EXIT.
= "Y"
INVALID KEY DISPLAY "No more stores in this state"
WITH DUPLICATES
PIC XXXX.
PIC XXXXX.
PIC X(20).
PIC X(20).
PIC XX.
PIC X(51).
PIC X.
VALUE "1".
VALUE "2".
VALUE "3".
= "Y" OR "N".
= "Y" OR "N".
MOVE "3" TO PROGRAM-STAT.
(continued on next page)