REPORT  z07_01.

PARAMETERS  p_cost TYPE p DECIMALS 2.
PARAMETERS p_cuky TYPE c LENGTH 3.

DATA lv_dec TYPE tcurx-currdec.

SELECT SINGLE currdec
INTO lv_dec
FROM tcurx
WHERE currkey = p_cuky.
IF sy-subrc EQ 0.
  IF lv_dec > 0.
    p_cost  =   p_cost  * ( 100 / 10 ** lv_dec ) .
  ELSE.
    p_cost =  p_cost * 100.
  ENDIF.
ELSE.
  p_cost =  p_cost.
ENDIF.

WRITE p_cost.