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

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-179
READ for Sequential or Dynamic Access
Example 9-56. 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
Example 9-57. Reading $RECEIVE With Timed Input-Output (page 1 of 2)
IDENTIFICATION DIVISION.
...
ENVIRONMENT DIVISION.
...
SELECT REQUEST
ASSIGN TO "$RECEIVE"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS REQUEST-FILE-STATUS.
...