例題
[P2120.cob] 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指定の直後に書かれたデータ名がこの集団項目の最後の項目(再命名の終了位置)となります．開始位置の前に終了位置が出現してはなりません．
