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

2.5.224 JMN3373I-S

乱呼出しで主キーにDUPLICATES指定がある索引ファイル@2@を@1@文に指定できません.

埋め込みの説明

@1@ : REWRITE,DELETE
@2@ : ファイル名

例題

[C3373.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3373.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT F1 ASSIGN TO SYS006
000007        ORGANIZATION IS INDEXED
000008        ACCESS MODE IS RANDOM
000009        RECORD KEY IS AAA WITH DUPLICATES.
000010 DATA  DIVISION.
000011 FILE SECTION.
000012 FD   F1.
000013 01   REC-1.
000014   02  AAA    PIC X(4).
000015   02  FILLER PIC X(76).
000016 PROCEDURE  DIVISION.
000017 P-START.
000018     OPEN I-O F1.
000019     REWRITE  REC-1.
000020 END PROGRAM  C3373.

C3373.cob 19: JMN3373I-S 乱呼出しで主キーにDUPLICATES指定がある索引ファイル'F1'をREWRITE文に指定できません.