NetCOBOL V11.1 メッセージ集

2.3.107 JMN1183I-S

OCCURS句の整数は，TO指定の整数以下でなければなりません． TO指定の整数と同じ整数が指定されたものとみなします．

例題

[C1183.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1183.
000003 DATA            DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01  WK-TBL.
000006   02  WK     PIC X OCCURS 3 TO 1
000007              DEPENDING ON LENGCNT.
000008 01  LENGCNT  PIC S9(4) BINARY.
000009 END PROGRAM     C1183.

C1183.cob 6: JMN1183I-S OCCURS句の整数は，TO指定の整数以下でなければなりません．TO指定の整数と同じ整数が指定されたものとみなします．