NetCOBOL V11.0 メッセージ集

2.3.184 JMN1298I-S

OCCURS句中に指定されている@1@指定の構文が誤っています． OCCURS句中のそれ以降の指定が無効になります．

埋め込みの説明

@1@ : DEPENDING ON,KEY IS,INDEXED BY

例題

[C1298.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1298.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  TBL1.
000006   02  DATA-1  PIC X OCCURS 2 ASCENDING KEY "C1298".
000007 END PROGRAM     C1298.

C1298.cob 6: JMN1298I-S OCCURS句中に指定されているKEY IS指定の構文が誤っています．OCCURS句中のそれ以降の指定が無効になります．