例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2038.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDX PIC X(2) VALUE "ABC".
000007 PROCEDURE DIVISION.
000008 END PROGRAM P2038.
P2038.cob (6) : JMN2038I-S VALUE句の定数の長さは，項目の長さ以下でなければなりません．項目長に合わせ，定数の右端を切り落とします．
詳細な説明
用途が表示用／ブールである項目の大きさが，VALUE句で指定した定数を格納するためには不足しています．
翻訳を続行するために，定数の右端を切り捨てた値を設定しますが，このときオブジェクトファイルや実行形式ファイルは生成されません．