例題
[P2528.cob] 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文の条件の中に，誤った算術式が指定されています．
