COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-191
READ for Sequential or Dynamic Access
Example 9-58. Reading a Dynamic Indexed File
IDENTIFICATION DIVISION.
...
ENVIRONMENT DIVISION.
...
SELECT MASTER-IN
ASSIGN TO "$WOOSTR.BERTIE.MASTER"
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS CUSTOMER-NUMBER
FILE STATUS IS MASTER-IN-FILE-STATUS.
...
DATA DIVISION.
FILE SECTION.
FD MASTER-IN
LABEL RECORDS ARE OMITTED.
01 MASTER-IN-RECORD.
...
WORKING-STORAGE SECTION.
...
01 FILE-STATUSES.
03 MASTER-IN-FILE-STATUS PICTURE XX.
...
PROCEDURE DIVISION.
...
MOVE 1 TO CUSTOMER-NUMBER
START MASTER-IN
KEY IS LESS THAN CUSTOMER-NUMBER
IF MASTER-IN-FILE-STATUS NOT EQUAL TO ZERO
PERFORM START-ERROR-ROUTINE
ELSE
READ MASTER-IN NEXT RECORD
AT END PERFORM WRITE-TOTALS-AND-QUIT
END-READ
END-IF