例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2529.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 .
000007 02 WTARGET OCCURS 26 INDEXED BY IX1
000008 ASCENDING KEY IS WKEY.
000009 03 WKEY PIC S9(4).
000010 03 WDATA PIC X(1).
000011 01 WANS PIC X(1).
000012 01 WDA1 PIC S9(4).
000013 PROCEDURE DIVISION.
000014 SEARCH ALL WTARGET
000015 AT END
000016 DISPLAY "ERROR"
000017 WHEN WKEY(IX1) < WDA1 + 12
000018 MOVE WDATA(IX1) TO WANS
000019 END-SEARCH
000020 END PROGRAM P2529.
P2529.cob (17) : JMN2529I-S 比較演算子がありません．
詳細な説明
文脈に合った比較演算子が見つかりません．以下の場合が該当します．
SEARCH文／SEARCH ALL文のWHEN指定に=(EQUAL/EQUALS)以外の比較演算子が書かれている
IF文，PERFORM文中の条件式に比較演算子(>, <, =, <=, >=)が書かれていない，あるいはEVALUATE文中の条件式に補助語のISしか書かれていない
START文のKEY指定に比較演算子(>, <, =, <=, >=)が書かれていない