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
  FROM tcurx
  WHERE currkey EQ @p_cuky
  INTO @lv_dec.

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.