2.5.3 JMN3002I-S

@1@に対する添字の数は，@2@個でなければなりません．先頭の余分な添字は無効になります．

埋め込みの説明

@1@ : 添字付けされたデータ項目
@2@ : 正しい添字の個数

例題

[C3002.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3002.
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, 2, 3).

C3002.cob 10: JMN3002I-S 'AN01'に対する添字の数は，2個でなければなりません．先頭の余分な添字は無効になります．