例題
[P2080.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2080. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP CHARACTER TYPE MODE-1. 000007 02 PIC N(10). 000008 02 CHARACTER TYPE MODE-2. 000009 03 PIC N(10). 000010 PROCEDURE DIVISION. 000011 END PROGRAM P2080.
P2080.cob 8: JMN2080I-S 集団項目に従属する項目のCHARACTER TYPE句は，その集団項目のCHARACTER TYPE句と同じ指定でなければなりません．集団項目のCHARACTER TYPE句を有効とみなします．
詳細な説明
集団項目およびその集団に従属するデータ項目の両方に，MODE-1，MODE-2，MODE-3あるいは呼び名を指定したCHARACTER TYPE句を記述するときは，両者のCHARACTER TYPE句の指定は同じでなければなりません．
翻訳を続行するために従属項目のCHARACTER TYPE句を有効とみなしますが，このときオブジェクトファイルや実行形式ファイルは生成されません．
