NetCOBOL V11.0 メッセージ集

2.6.16 JMN5110I-S

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

埋め込みの説明

@1@ : USAGE OBJECT REFERENCE

例題

[C5110.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C5110.
000003 DATA           DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A1 .
000006   02 B1        USAGE OBJECT REFERENCE.
000007   02 B2        PIC X(08).
000008   02 B3        USAGE OBJECT REFERENCE.
000009 66 RR RENAMES B1 THROUGH B3.
000010 PROCEDURE      DIVISION.
000011 END PROGRAM    C5110.

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