COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-305
WRITE for Relative, Indexed, and Queue Files
Example 9-76. INVALID KEY Phrase
ENVIRONMENT DIVISION.
...
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MASTER-REL-FILE
ASSIGN TO "$MARKT.PLATZ.DT"
ORGANIZATION IS RELATIVE
ACCESS MODE IS RANDOM
RELATIVE KEY IS VKF-NR
FILE STATUS IS M-R-STATUS.
...
DATA DIVISION.
FILE SECTION.
...
FD MASTER-REL-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 180 TO 250 CHARACTERS.
01 DOMESTIC-SALE PIC X(180).
01 FOREIGN-SALE PIC X(250).
...
WORKING-STORAGE SECTION.
01 VKF-NR PICTURE 97.
01 J-W-D.
03 NATION PIC X(15).
03 SUBDIVISION PIC X(15).
03 CITY PIC X(15).
...
PROCEDURE DIVISION.
...
AUSLAND.
...
ADD 1 TO VKF-NR
WRITE FOREIGN-SALE FROM J-W-D
INVALID KEY PERFORM RECOVER-M-R-BAD-KEY
END-WRITE
...