COBOL Manual for TNS and TNS/R Programs

Environment Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
6-53
FILE-CONTROL Paragraph
Example 6-7. 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.
...