2.3.343 JMN1591I-S

LOCK MODE句は順ファイル，相対ファイルまたは索引ファイル以外に指定できません．

例題

[C1591.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1591.
000003 ENVIRONMENT     DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT AFILE ASSIGN TO R-DD1
000007                  ACCESS MODE IS RANDOM
000008                  RELATIVE KEY IS RK1
000009                  LOCK MODE IS EXCLUSIVE.
000010 DATA            DIVISION.
000011 FILE            SECTION.
000012 FD AFILE.
000013 01 AREC         PIC X(8).
000014 WORKING-STORAGE SECTION.
000015 01 RK1          PIC 9(8) BINARY.
000016 END PROGRAM C1591.

C1591.cob 9: JMN1591I-S LOCK MODE句は順ファイル，相対ファイルまたは索引ファイル以外に指定できません．