Compaq COBOL AAQ2G1FTK - Manual (Page 201)

Processing Files and Records
6.2 Identifying Files and Records from Within Your Compaq COBOL Program
Examples 6–13, 6–14, and Example 6–15 illustrate how to specify the file
organization and access mode for sequential, relative, and indexed files.
Example 6–13 Specifying Sequential File Organization and Sequential Access
Mode for a Sequential File
IDENTIFICATION DIVISION.
PROGRAM-ID.
SEQ01.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MASTER-FILE ASSIGN TO "MASTER.DAT".
SELECT TRANS-FILE ASSIGN TO "TRANS.DAT".
SELECT REPRT-FILE ASSIGN TO "REPORT.DAT".
DATA DIVISION.
FILE SECTION.
FD
MASTER-FILE.
01 MASTER-RECORD.
02
MASTER-DATA PIC X(80).
02 MASTER-SIZE PIC 99.
02 MASTER-TABLE OCCURS 0 to 50 TIMES
DEPENDING ON MASTER-SIZE.
03 MASTER-YEAR PIC 99.
03 MASTER-COUNT PIC S9(5)V99.
FD TRANS-FILE.
01 TRANSACTION-RECORD PIC X(25).
FD REPRT-FILE.
01 REPORT-LINE PIC X(132).
Example 6–14 Specifying Relative File Organization and Random Access Mode
for a Relative File
IDENTIFICATION DIVISION.
PROGRAM-ID. REL01.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FLAVORS ASSIGN TO "BRAND"
ORGANIZATION IS RELATIVE
ACCESS MODE IS RANDOM
RELATIVE KEY IS KETCHUP-MASTER-KEY.
DATA DIVISION.
FILE SECTION.
FD
FLAVORS.
01 KETCHUP-MASTER PIC X(50).
WORKING-STORAGE SECTION.
01
KETCHUP-MASTER-KEY PIC 99.
Example 6–15 Specifying Indexed File Organization and Dynamic Access Mode
for an Indexed File
IDENTIFICATION DIVISION.
PROGRAM-ID. INDEX01.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
(continued on next page)
Processing Files and Records 6–21