NetCOBOL V11.0 メッセージ集

2.5.1 JMN3000I-S

@1@に対する@2@次元目の添字の値は，正でなければなりません． 添字の値を1とみなします．

埋め込みの説明

@1@ : 添字付けされたデータ項目
@2@ : ゼロ以下だった添字の次元数

例題

[C3000.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3000.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  GR01.
000006     02  TBL01 OCCURS 10 TIMES.
000007       03  TBL02 OCCURS 10 TIMES.
000008         04  AN01 PIC X.
000009 PROCEDURE  DIVISION.
000010     MOVE SPACE TO AN01(1, 0).

C3000.cob 10: JMN3000I-S 'AN01'に対する2次元目の添字の値は，正でなければなりません．添字の値を1とみなします．