例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2528.
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 P2528.
P2528.cob (17) : JMN2528I-S SEARCH ALL文の条件の中に，誤った算術式が指定されています．