例題
[P2043.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2043. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WBOOL PIC X(1) VALUE B"11110000". 000007 PROCEDURE DIVISION. 000008 END PROGRAM P2043.
P2043.cob 6: JMN2043I-W 英字，英数字または英数字編集項目のVALUE句に，ブール定数は指定できません．1ブール文字を1ビットとみなして，左づめで格納します．
詳細な説明
英字，英数字または英数字編集項目の初期値としてブール定数が指定された場合，ブール文字("0"または"1")1個が1ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして，項目に設定します．このとき，値は左詰めで格納され，残りの領域には空白文字が設定されます．
