ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.5.119 JMN3165I-S

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

埋め込みの説明

@1@ : ファイル名
@2@ : 'INVALID KEY','NOT INVALID KEY'

例題

[C3165.cob]
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文に記述できません.