例題
[P2105.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2105. 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"1". 000009 PROCEDURE DIVISION. 000010 END PROGRAM P2105.
P2105.cob 8: JMN2104I-W 条件変数が英字,英数字,英数字編集または集団項目である条件名のVALUE句に,ブール定数は指定できません.1ブール文字を1ビットとみなして,左づめで格納します.
P2105.cob 8: JMN2105I-W 条件名のVALUE句に指定したブール定数の長さは,8の倍数でなければなりません.8の倍数になるように右端に0を補います.
詳細な説明
条件変数が英字,英数字,英数字編集または集団項目のとき,条件名記述項(レベル番号が88)のVALUE句にブール定数が指定されたならば,ブール文字('0'または'1')1個が1ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして条件名の値とするため,ブール文字の個数は8の倍数である必要があります.
8の倍数でない場合,ブール定数の右側にブール文字'0'を補って8の倍数とみなします.