例題
[P2226.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2226. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 WGRP2. 000008 03 PIC N(10) 000009 CHARACTER TYPE MODE-2. 000010 02 WGRP3 REDEFINES WGRP2. 000011 03 PIC N(10) 000012 CHARACTER TYPE MODE-1. 000013 PROCEDURE DIVISION. 000014 END PROGRAM P2226.
P2226.cob 12: JMN2226I-S CHARACTER TYPE句は，レベル番号01または77を除くREDEFINES句を持つ項目およびそれに従属する項目に指定できません．
詳細な説明
CHARACTER TYPE句は印字するときの文字の形式を指定します．同句を持つデータ項目がREDEFINES句によって再定義されると，COBOL処理系が印字のための情報を正しく取得できなくなります．
ただしレベル番号01または77の項目間での再定義は例外で，この場合は印字のための情報を正しく取得できます．
