例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2104.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 D1 PIC X(1).
000007 88 CD1 VALUE "1".
000008 88 CD2 VALUE B"10101010".
000009 PROCEDURE DIVISION.
000010 END PROGRAM P2104.
P2104.cob (8) : JMN2104I-W 条件変数が英字，英数字，英数字編集または集団項目である条件名のVALUE句に，ブール定数は指定できません．1ブール文字を1ビットとみなして，左づめで格納します．
詳細な説明
条件変数が英字，英数字，英数字編集または集団項目のとき，条件名記述項(レベル番号が88)のVALUE句でブール定数が指定されたならば，ブール文字("0"または"1")1個が１ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして，条件名の値とします．このとき，条件変数の項目長に合わせて値は左詰めされ，残りの領域には空白文字が設定されます．