2.4.133 JMN3198I-S

SEARCH ALL文の@1@は，部分参照できません．

引数の説明

@1@:

キーデータ項目

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3198.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  GR.
      000007   02  TBL OCCURS 10 TIMES ASCENDING KEY IS KEY-1
      000008                           INDEXED BY INX.
      000009     03  KEY-1   PIC X(5).
      000010 PROCEDURE  DIVISION.
      000011     SEARCH ALL TBL
      000012     WHEN KEY-1(INX)(1 : 3) = "AAA"
      000013       STOP RUN.

C3198.cob (12) : JMN3198I-S SEARCH ALL文の'KEY-1'は，部分参照できません．