2.4.30 JMN3041I-S

SEARCH文中のVARYING指定の@1@は指標名，指標データ項目または整数項目でなければなりません．

引数の説明

@1@:

一意名

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3041.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  TBL.
      000007    02  X OCCURS 5 TIMES
      000008                INDEXED BY IX1.
      000009       03  A        PIC 9.
      000010 01  B              PIC 9V9.
      000011 PROCEDURE  DIVISION.
      000012     SEARCH X VARYING B WHEN A(IX1) = 0
      000013     MOVE 1 TO A(IX1).
      000014     STOP RUN.

C3041.cob (12) : JMN3041I-S SEARCH文中のVARYING指定の'B'は指標名，指標データ項目または整数項目でなければなりません．