DATA n TYPE decfloat16.
DATA m TYPE decfloat16 VALUE '-3.58'.
WRITE : / 'Original value :', m.
n = abs( m ).
WRITE :/ 'Absolute Value :', n.
n = sign( m ).
WRITE :/ 'Sign :', n.
n = ceil( m ).
WRITE :/ 'Ceil Value :', n.
n = floor( m ).
WRITE :/ 'Floor Value :', n.
n = trunc( m ).
WRITE :/ 'Truncate Value :', n.
n = frac( m ).
WRITE :/ 'Fraction Value :', n.
----------------------------------------------------------------------------------------------
DATA m TYPE decfloat16 VALUE '-3.58'.
WRITE : / 'Original value :', m.
n = abs( m ).
WRITE :/ 'Absolute Value :', n.
n = sign( m ).
WRITE :/ 'Sign :', n.
n = ceil( m ).
WRITE :/ 'Ceil Value :', n.
n = floor( m ).
WRITE :/ 'Floor Value :', n.
n = trunc( m ).
WRITE :/ 'Truncate Value :', n.
n = frac( m ).
WRITE :/ 'Fraction Value :', n.
----------------------------------------------------------------------------------------------
No comments:
Post a Comment