2.3.189 JMN1310I-S

直接編成ファイル，相対編成ファイルまたはインデックスつき編成ファイルの場合，ACCESS MODE句にDYNAMICは指定できません． RANDOMとみなします．

例題

[C1310.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1310.
000003 ENVIRONMENT     DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS014-DA-I-OUTDATA
000007     RECORD KEY   IS SQFRKEY
000008     NOMINAL KEY  IS SQFNKEY
000009     ACCESS MODE  IS DYNAMIC
000010     .
000011 DATA            DIVISION.
000012 FILE            SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015   02 SQFRKEY   PIC X.
000016   02 SQFID001  PIC X(256).
000017   02 SQFDAT    PIC X(30).
000018 WORKING-STORAGE SECTION.
000019 01 SQFNKEY   PIC X.
000020 END PROGRAM C1310.

C1310.cob 9: JMN1310I-S 直接編成ファイル，相対編成ファイルまたはインデックスつき編成ファイルの場合，ACCESS MODE句にDYNAMICは指定できません．RANDOMとみなします．