例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3181.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GRP.
000007 02 TBL OCCURS 5 TIMES ASCENDING KEY IS A B
000008 INDEXED BY IX.
000009 03 A PIC 9.
000010 03 B PIC 9.
000011 PROCEDURE DIVISION.
000012 SEARCH ALL TBL
000013 WHEN A (IX) = B (IX)
000014 STOP RUN.
C3181.cob (13) : JMN3181I-S SEARCH ALL文のWHEN指定またはAND指定の条件式中の左辺と右辺の両方にKEY項目は記述できません．