COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Example 31 Indexed File With One Alternate Key
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT RECEIVABLES-MASTER
ASSIGN TO "=RECMAST"
ORGANIZATION IS INDEXED
RECORD KEY IS INVOICE-NUMBER
ALTERNATE RECORD KEY IS COMPANY-NAME
WITH DUPLICATES,
FILE STATUS IS IO-STATUS.
...
DATA DIVISION.
FILE SECTION.
FD RECEIVABLES-MASTER
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 39 CHARACTERS.
01 INVOICE-RECORD.
05 INVOICE-NUMBER PICTURE 9(7).
05 COMPANY-NAME PICTURE X(15).
05 INVOICE-DATE PICTURE 9(6).
05 INVOICE-AMOUNT PICTURE S9(9)V99.
...
WORKING-STORAGE SECTION.
01 STATUSES.
03 IO-STATUS PICTURE XX VALUE SPACES.
...
File-Control Entries for Queue Files
A queue file is an indexed file that can function as a queue. Unlike an ordinary index file, a queue
file cannot have alternate keys.
For descriptions of clauses and usage considerations, see File-Control Entries for Indexed Files.
File-Control Entries for Sort-Merge Files
A file-control entry for a sort-merge file defines a scratch file for a sort-merge process.
136 Environment Division