DIAGTRUNC

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

DIAGTRUNC option syntax

Read syntax diagramSkip visual syntax diagramNODIAGTRUNCDIAGTRUNC

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 message 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 message for COMP-5 receivers, nor for binary receivers when you specify the TRUNC(BIN) option.

Related concepts  
Formats for numeric data  
Reference modifiers

Related references  
TRUNC