例題
[C3021.cob] 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進項目の定義桁に合わせて桁落としされて格納されます.