例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2526.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 .
000007 02 WTARGET OCCURS 26 INDEXED BY IX1.
000008 03 WKEY PIC X.
000009 03 WDATA PIC S9(4) BINARY.
000010 01 WANS PIC S9(4) BINARY.
000011 PROCEDURE DIVISION.
000012 SEARCH WTARGET(1) VARYING IX1
000013 AT END
000014 DISPLAY "ERROR"
000015 WHEN WKEY(IX1) >= "A" AND
000016 WKEY(IX1) <= "Z"
000017 MOVE WDATA(IX1) TO WANS
000018 END-SEARCH
000019 END PROGRAM P2526.
P2526.cob (12) : JMN2526I-S SEARCH文の一意名は，添字付けまたは部分参照できません．AT ENDまたはWHEN指定が現れるまで無効となります．