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

2.4.31 JMN3042I-S

SEARCH ALL 文のWHEN指定またはAND指定のKEY項目は,重複してはいけません.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3042.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01   TBL.
      000007   02 X OCCURS 5 TIMES ASCENDING KEY IS A
      000008                INDEXED BY IX1.
      000009     03 A         PIC 9(2).
      000010 PROCEDURE  DIVISION.
      000011     SEARCH ALL X
      000012     WHEN A(IX1) = 10
      000013     AND  A(IX1) = 20
      000014       DISPLAY "NOT TRUE"
      000015     END-SEARCH.
      000016 END PROGRAM  C3042.
    

C3042.cob (13) : JMN3042I-S SEARCH ALL 文のWHEN指定またはAND指定のKEY項目は,重複してはいけません.