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

2.5.20 JMN5121I-S

RENAMES句に指定されたデータ項目とTHROUGH指定のデータ項目の間に@1@が指定された項目は指定できません．
RENAMES句は無効になります．

引数の説明

@1@:

USAGE OBJECT REFERENCE

例

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

P5121.cob (13) : JMN5121I-S RENAMES句に指定されたデータ項目とTHROUGH指定のデータ項目の間にUSAGE OBJECT REFERENCEが指定された項目は指定できません．RENAMES句は無効になります．