例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3021.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 BI01 PIC S9(4) COMPUTATIONAL.
000006 PROCEDURE DIVISION.
000007 MOVE +54321 TO BI01.
000008 END PROGRAM C3021.
C3021.cob (7) : JMN3021I-S 2進項目に転記される数字定数は，領域に入り切る値でなければなりません．
詳細な説明
TRUNCオプションが無効，かつ2進項目に対して定義桁を超える桁の数字定数を転記する場合，その数字定数が2進値として受取側の2進項目の領域長に収まる値ならば，その値がそのまま転記されます．しかし2進項目の領域長に収まらない場合は，本エラーメッセージが出力されて翻訳は無効となります．ちなみにTRUNCオプションが有効な場合は，数字定数が2進項目の定義桁に合わせて桁落としされて格納されます．