例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3163.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GRP.
000007 02 TBL OCCURS 10 TIMES ASCENDING KEY IS A B C
000008 INDEXED BY INX.
000009 03 A PIC 9.
000010 03 B PIC X.
000011 03 C PIC X.
000012 PROCEDURE DIVISION.
000013 SEARCH ALL TBL
000014 WHEN C(INX) = "A"
000015 AND A(INX) = 9
000016 STOP RUN.
C3163.cob (14) : JMN3163I-S SEARCH ALL文のWHEN指定のデータ名または条件名は,KEY IS指定中でそれより前に記述されたデータ名または条件名をすべて指定しなければなりません.
詳細な説明
SEARCH ALL文のWHEN指定の条件に,検索対象である表に指定されたKEY IS指定の全ての項目を含める必要はありません.しかしKEY IS指定に指定した順序において,途中を省略した形での指定は許されません.例えば「KEY IS A B C」の場合,WHEN指定の条件には「Aのみ」「AとB」「A, B, Cの全て」のいずれかの形でKEY項目を指定可能です.しかし「AとC」のような形では指定できません.