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