例題
[P2117.cob] 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)指定の前後に指定されたデータ名が同一のデータ記述項によって定義されたものである場合に，この診断メッセージが出力されます．データ名の修飾の有無の違いは関係ありません．
