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

2.3.72 JMN2119I-S

RENAMES句のデータ名またはTHROUGHのデータ名は，OCCURS句を含む項目またはOCCURS句を含む項目に従属する項目であってはなりません．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2119.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 GR1.
      000007   02 OCC1      OCCURS 10.
      000008     03 E1      PIC X(2).
      000009 66 R1 RENAMES OCC1.
      000010 PROCEDURE      DIVISION.
      000011 END PROGRAM    P2119.
    

P2119.cob (9) : JMN2119I-S RENAMES句のデータ名またはTHROUGHのデータ名は，OCCURS句を含む項目またはOCCURS句を含む項目に従属する項目であってはなりません．