Compaq COBOL AAQ2G1FTK User 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