例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2117.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GR1.
000007 02 GR2.
000008 03 E1 PIC X(5).
000009 66 R1 RENAMES E1 THRU E1 OF GR2.
000010 PROCEDURE DIVISION.
000011 END PROGRAM P2117.
P2117.cob (9) : JMN2117I-S RENAMES句に指定する二つのデータ名は，異なっていなくてはいけません．
詳細な説明
THROUGH(THRU)指定の前後に指定されたデータ名が同一のデータ記述項によって定義されたものである場合に，この診断メッセージが出力されます．データ名の修飾の有無の違いは関係ありません．