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

2.5.34 JMN3041I-S

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

埋め込みの説明

@1@ : 一意名

例題

[C3041.cob]
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'は指標名,指標データ項目または整数項目でなければなりません.