例
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項目は,重複してはいけません.