例題
[P5147.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5147. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 BLOB TYPEDEF. 000006 02 RESEV PIC S9(9) BINARY. 000007 02 LENG PIC 9(9) BINARY. 000008 02 BUFF PIC X(1024). 000009 01 GRP1 TYPE BLOB. 000010 88 ZSP VALUE SPACE. 000011 PROCEDURE DIVISION. 000012 STOP RUN. 000013 END PROGRAM P5147.
P5147.cob 9: JMN5147I-S 条件変数が参照する型は基本項目として定義されたものでなければなりません．条件名の指定を無視します．
詳細な説明
条件名記述項(レベル番号が88)で定義した条件名を関係付けたデータ項目を，条件変数といいます．
条件変数にTYPE句が指定されているとき，そのTYPE句で参照する型(TYPEDEF)は，基本項目の属性でなければなりません．
