例題
[P2201.cob] 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個が1ビットの領域を占めるもの(ブール文字8個で1バイト)とみなして項目に設定するため，ブール文字の個数は8の倍数である必要があります．
8の倍数でない場合は，ブール定数の右側にブール文字'0'を補って8の倍数とみなします．
