NetCOBOL for .NET V7.0 メッセージ集

2.2.105 JMN1183I-S

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

例

      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指定の整数と同じ整数が指定されたものとみなします．