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

2.5.12 JMN5110I-S

RENAMES句のデータ名またはTHROUGHのデータ名は，@1@句が指定された項目または従属する項目が@1@句を含む項目であってはなりません．
RENAMES句は無効になります．

引数の説明

@1@:

USAGE OBJECT REFERENCE

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    C5110.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 REPOSITORY.
      000006     CLASS SYSOBJ AS "System.Object".
      000007 DATA           DIVISION.
      000008 WORKING-STORAGE SECTION.
      000009 01 A1 .
      000010   02 B1        USAGE OBJECT REFERENCE SYSOBJ.
      000011   02 B2        PIC X(08).
      000012   02 B3        USAGE OBJECT REFERENCE SYSOBJ.
      000013 66 RR RENAMES B1 THROUGH B3.
      000014 PROCEDURE      DIVISION.
      000015 END PROGRAM    C5110.
    

C5110.cob (13) : JMN5110I-S RENAMES句のデータ名またはTHROUGHのデータ名は，USAGE OBJECT REFERENCE句が指定された項目または従属する項目がUSAGE OBJECT REFERENCE句を含む項目であってはなりません．RENAMES句は無効になります．