例題
[C1025.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1025. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 BOOL1 PIC X(1) VALUE B"". 000006 END PROGRAM C1025.
C1025.cob 5: JMN1025I-S ブール定数の長さはゼロであってはいけません．1字の0とみなします．
C1025.cob 5: JMN2044I-S 英字，英数字または英数字編集項目に指定したブール定数の長さは，8の倍数でなければなりません．8の倍数になるように右端にブール文字'0'を仮定します．
C1025.cob 5: JMN2043I-W 英字，英数字または英数字編集項目のVALUE句に，ブール定数は指定できません．1ブール文字を1ビットとみなして，左づめで格納します．
