COBOL Manual for TNS and TNS/R Programs

Environment Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
6-46
FILE-CONTROL Paragraph
•
HP COBOL Fast I-O (Local Buffering)
HP COBOL Fast I-O is an enhancement in input-output performance beyond that
of sequential block buffering or buffered cache. It is available if a program and the
relative file upon which it is to operate are in the CRE and meet the criteria under
File-Control Entries for Sequential Files.
Example 6-6. Relative File Used for Random Access
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO "$DATA.MYDISC.INPUT"
ORGANIZATION IS RELATIVE
ACCESS MODE IS RANDOM
RELATIVE KEY IS INP-RELKEY
FILE STATUS IS INP-STATUS.
...
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE
LABEL RECORDS ARE OMITTED.
01 INPUT-REC.
...
WORKING-STORAGE SECTION.
01 STATUSES.
03 INP-STATUS PICTURE XX VALUE SPACES.
...
01 KEYS.
03 INP-RELKEY USAGE NATIVE-4.