2.4.134 JMN3200I-S

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

引数の説明

@1@:

呼出し法

@2@:

編成種別

@3@:

ファイル名

@4@:

'INPUT'，'OUTPUT'，'I-O'，'EXTEND'

例

      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指定に記述できません．