2.4.116 JMN3165I-S

順呼出しのファイル@1@の場合，@2@指定はDELETE文に記述できません．

引数の説明

@1@:

ファイル名

@2@:

'INVALID KEY'，'NOT INVALID KEY'

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.  C3165.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT FILE-1 ASSIGN TO S-SYS001
      000007     ORGANIZATION IS INDEXED
      000008     ACCESS MODE IS SEQUENTIAL
      000009     RECORD KEY IS REC-KEY.
      000010 DATA  DIVISION.
      000011 FILE SECTION.
      000012   FD FILE-1.
      000013    01 REC-1.
      000014     02 REC-KEY PIC XX.
      000015     02 FILLER  PIC XX.
      000016 PROCEDURE  DIVISION.
      000017     DELETE FILE-1 INVALID KEY GO TO L1.
      000018   L1. STOP RUN.

C3165.cob (17) : JMN3165I-S 順呼出しのファイル'FILE-1'の場合，INVALID KEY指定はDELETE文に記述できません．