例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2201.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP VALUE B"111100011".
000007 02 PIC N.
000008 PROCEDURE DIVISION.
000009 END PROGRAM P2201.
P2201.cob (6) : JMN2201I-W 集団項目に指定したVALUE句のブール定数の長さは，8の倍数でなければなりません．8の倍数になるように右端に0を仮定します．
詳細な説明
集団項目の初期値としてブール定数が指定された場合，ブール文字('0'または'1')1個が１ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして項目に設定するため，ブール文字の個数は8の倍数である必要があります．
8の倍数でない場合は，ブール定数の右側にブール文字'0'を補って8の倍数とみなします．