DIAGTRUNC causes the compiler to issue a severity-4 (Warning) diagnostic message for MOVE statements with numeric receivers when the receiving data item has fewer integer positions than the sending data item or literal.
In statements with multiple receivers, the message is issued separately for each receiver that could be truncated.

DIAGTRUNC option syntax

Default is: NODIAGTRUNC

Abbreviations are: DTR, NODTR

The diagnostic message is also issued for implicit moves associated with statements such as these:

• INITIALIZE
• READ . . . INTO
• RELEASE . . . FROM
• RETURN . . . INTO
• REWRITE . . . FROM
• WRITE . . . FROM

The diagnostic is also issued for moves to numeric receivers from alphanumeric data-names or literal senders, except when the sending field is reference modified.

There is no diagnostic for COMP-5 receivers, nor for binary receivers when you specify the TRUNC(BIN) option.