例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2044.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WBOOL PIC X(1) VALUE B"111100".
000007 PROCEDURE DIVISION.
000008 END PROGRAM P2044.
P2044.cob (6) : JMN2044I-S 英字，英数字または英数字編集項目に指定したブール定数の長さは，8の倍数でなければなりません．8の倍数になるように右端にブール文字'0'を仮定します．
詳細な説明
英字，英数字または英数字編集項目の初期値としてブール定数が指定された場合，ブール文字('0'または'1')1個が１ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして項目に設定するため，ブール文字の個数は8の倍数である必要があります．
8の倍数でない場合，翻訳を続行するために，ブール定数の右側にブール文字'0'を補って8の倍数とみなしますが，このときオブジェクトファイルや実行形式ファイルは生成されません．