例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2116.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1 PIC X(20).
000007 66 R1 RENAMES D1.
000008 PROCEDURE DIVISION.
000009 END PROGRAM P2116.
P2116.cob (7) : JMN2116I-S RENAMES句に，レベル番号01，77，88または66として定義された項目は指定できません．
詳細な説明
RENAMES句は，同じレコード記述項中の基本項目をまとめたものに名前を付けるための句です．複数のレコード記述項をまとめて再命名することはできません．条件名記述項(レベル番号が88)やRENAMES記述項(レベル番号が66)を再命名することもできません．