2.5.138 JMN3200I-S

@1@の@2@@3@は，OPEN文の@4@指定に記述できません．

埋め込みの説明

@1@ : 呼出し法
@2@ : 編成種別
@3@ : ファイル名
@4@ : 'INPUT'，'OUTPUT'，'I-O'，'EXTEND'

例題

[C3200.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3200.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     ORGANIZATION IS INDEXED
000008     ACCESS MODE IS RANDOM
000009     RECORD KEY IS KEY-REC.
000010 DATA DIVISION.
000011 FILE SECTION.
000012   FD FILE-1.
000013    01 REC-1.
000014     02 KEY-REC PIC XX.
000015     02 FILLER  PIC X(78).
000016 PROCEDURE DIVISION.
000017     OPEN EXTEND FILE-1.
000018     STOP RUN.

C3200.cob 17: JMN3200I-S 乱呼出しの索引ファイル'FILE-1'は，OPEN文のEXTEND指定に記述できません．