例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2120.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 GRP.
000007 02 E1 PIC X(5).
000008 02 E2 PIC X(5).
000009 66 R1 RENAMES E2 THRU E1.
000010 PROCEDURE DIVISION.
000011 END PROGRAM P2120.
P2120.cob (9) : JMN2120I-S THROUGH指定のデータ名の領域の左端は，RENAMES句のデータ名の領域の左端より左にあってはなりません．
詳細な説明
THROUGH指定(THROUGHとTHRUとは同義語)が書かれると，RENAMES記述項は集団項目とみなされ，この集団項目の領域の範囲が再命名されます．このとき，RENAMES句の直後に書かれたデータ名がこの集団項目の最初の項目(再命名の開始位置)となり，一方，THROUGH指定の直後に書かれたデータ名がこの集団項目の最後の項目(再命名の終了位置)となります．開始位置の前に終了位置が出現してはなりません．