例題
[P2357.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2357. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 WELM1 PIC X(20). 000008 02 WELM2 REDEFINES WELM1 000009 PIC X(2). 000010 66 RGRP RENAMES WELM1 THRU WELM2. 000011 PROCEDURE DIVISION. 000012 END PROGRAM P2357.
P2357.cob 10: JMN2357I-S THROUGH指定のデータ名の領域の右端は，RENAMES句のデータ名の領域の右端より右になければなりません．
詳細な説明
THROUGH指定(THROUGHとTHRUとは同義語)が書かれると，RENAMES記述項は集団項目とみなされ，この集団項目の領域の範囲が再命名されます．このとき，RENAMES句の直後に書かれたデータ名がこの集団項目の最初の項目(再命名の開始位置)となり，一方，THROUGH指定の直後に書かれたデータ名がこの集団項目の最後の項目(再命名の終了位置)となります．終了位置の後ろに開始位置が出現してはなりません．
