DIAGTRUNC を使用すると、 受け取り側が数値である MOVE ステートメントの場合に、受け取りデータ項目の整数桁数が送り出しデータ項目またはリテラルよりも少ないときには、コンパイラーは、重大度 4 (警告) の診断メッセージを出します。複数の受け取り側があるステートメントでは、切り捨てられる可能性があるそれぞれの受け取り側ごとにメッセージが出されます。
DIAGTRUNC オプションの構文 .-NODIAGTRUNC-. >>-+-------------+--------------------------------------------->< '-DIAGTRUNC---'
デフォルト: NODIAGTRUNC
省略形: DTR、NODTR
診断メッセージは、次のようなステートメントに関連した暗黙の移動の場合にも出されます。
送信フィールドが参照変更である場合を除いて、英数字データ名またはリテラルの送り出し側から数値の受け取り側への移動についても、診断が出されます。
TRUNC(BIN) オプションを指定した場合は、COMP-5 の受け取り側についても、2 進数の受け取り側についても診断は行われません。
関連参照
TRUNC