例題
[P5148.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5148. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 COLORV TYPEDEF PIC 9(4). 000006 88 BLUE VALUE 1. 000007 88 RED VALUE 2. 000008 01 WBCG TYPE COLORV. 000009 88 GREEN VALUE 3. 000010 PROCEDURE DIVISION. 000011 STOP RUN. 000012 END PROGRAM P5148.
P5148.cob 8: JMN5148I-S 条件変数の参照する型は条件名を含むものであってはなりません．条件名の指定を無視します．
詳細な説明
条件名記述項(レベル番号が88)で定義した条件名を関係付けたデータ項目を，条件変数といいます．
条件変数にTYPE句が指定されているとき，そのTYPE句で参照する型(TYPEDEF)は，条件名記述項を含んでいてはなりません．
