例題
[C3181.cob] 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項目は記述できません．
