REPORT Z_BARRY_TEST_ROUND .
DATA: pp1 TYPE p DECIMALS 3,
pp2 TYPE p DECIMALS 2,
pp3 TYPE p DECIMALS 2,
ii1 TYPE i .
pp1 = '1452.345'.
pp3 = pp1 .
ii1 = 2.
PERFORM noround USING pp1 ii1
CHANGING pp2.
WRITE: pp2,pp3.
*&--------------------------------------------------------------------*
*& Form noround
*&--------------------------------------------------------------------*
FORM noround USING p1 i1
CHANGING p2.
DATA: tmpn1(20) TYPE n ,
tmpn2(20) TYPE n ,