例題
[P2200.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2200. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP VALUE "あいう". 000007 02 PIC N. 000008 02 PIC X(3). 000009 PROCEDURE DIVISION. 000010 END PROGRAM P2200.
P2200.cob 6: JMN2200I-W 集団項目に指定したVALUE句の定数の長さは，その項目長以下でなければなりません．項目と同じ長さだけの定数の先頭部分が有効になります．
