NetCOBOL V12.1 メッセージ集

2.6.27 JMN5121I-S

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

埋め込みの説明

@1@ : USAGE OBJECT REFERENCE

例題

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

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