例
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個が１ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして，項目に設定します．このとき，値は左詰めで格納され，残りの領域には空白文字が設定されます．