NetCOBOL V11.0 メッセージ集

2.5.159 JMN3249I-S

SEARCH ALL文のキー項目@1@および比較する対象は，ブール項目(定数)であってはなりません．

埋め込みの説明

@1@ : データ名

例題

[C3249.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3249.
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 01   B        PIC 1(2).
000011 PROCEDURE  DIVISION.
000012     SEARCH ALL X
000013     WHEN A(IX1) = B
000014       CONTINUE
000015     END-SEARCH.
000016 END PROGRAM  C3249.

C3249.cob 13: JMN3249I-S SEARCH ALL文のキー項目'A'および比較する対象は，ブール項目(定数)であってはなりません．