2.4.111 JMN3160I-S

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

引数の説明

@1@:

一意名

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.  C3160.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  GRP.
      000007    02  TBL OCCURS 10 TIMES INDEXED BY INX.
      000008       03  A        PIC X.
      000009 01  B        PIC XX.
      000010 01  X        PIC X(2).
      000011 PROCEDURE  DIVISION.
      000012     SEARCH ALL TBL
      000013     WHEN   A(INX) = "Z"
      000014       MOVE 1 TO B.
      000015     STOP RUN.

C3160.cob (12) : JMN3160I-S SEARCH ALL文の'TBL'のデータ記述には，KEY IS指定がなければなりません．