ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

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