2.5.115 JMN3161I-S

SEARCH ALL文のWHEN指定の条件には，@1@のデータ記述のKEY IS指定に記述したデータ名がなければなりません．

埋め込みの説明

@1@ : 一意名

例題

[C3161.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.  C3161.
000003 ENVIRONMENT  DIVISION.
000004 DATA  DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01  GRP1.
000007    02  TBL1 OCCURS 10 TIMES ASCENDING KEY IS K1
000008                             INDEXED BY INX1.
000009       03  K1     PIC X.
000010 01  GRP2.
000011    02  TBL2 OCCURS 10 TIMES ASCENDING KEY IS K2
000012                             INDEXED BY INX2.
000013       03  K2     PIC X.
000014 01  A        PIC XX.
000015 01  B        PIC X(2).
000016 PROCEDURE  DIVISION.
000017     SEARCH ALL TBL1
000018     WHEN  K2(INX1) = "Y"
000019       MOVE 1 TO A.
000020     STOP RUN.

C3161.cob 18: JMN3161I-S SEARCH ALL文のWHEN指定の条件には，'TBL1'のデータ記述のKEY IS指定に記述したデータ名がなければなりません．