Rational Developer for System z
Enterprise COBOL for z/OS, Version 4.1, Programming Guide


DIAGTRUNC

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.

Read syntax diagramSkip visual syntax diagram
DIAGTRUNC option syntax

   .-NODIAGTRUNC-.   
>>-+-------------+---------------------------------------------><
   '-DIAGTRUNC---'   

Default is: NODIAGTRUNC

Abbreviations are: DTR, NODTR

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

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.

related references  
TRUNC


Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)