ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

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指定がなければなりません.