例題
[C20341.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C20341. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 AREC1 PIC 99 VALUE 12.5. 000009 PROCEDURE DIVISION. 000010 END PROGRAM C20341.
C20341.cob 8: JMN2034I-S 数字項目に指定されたVALUE句の数字定数が,ゼロでない数字の切捨てを起こす値を持っています.表意定数ZEROが指定されたものとみなします.
詳細な説明
数字項目の大きさ(桁数)が,VALUE句で指定した数値を格納するためには不足しています.初期値を正しく設定することができません.
翻訳を続行するために表意定数ZEROが指定されたものとみなして処理しますが,このときオブジェクトファイルや実行形式ファイルは生成されません.