REPORT z_barry_convert_currency .
DATA: jine LIKE bseg-wrbtr .
DATA: date LIKE sy-datum .
DATA: curr_ex LIKE bapicurr-bapicurr .
date = '20060831' .
DATA: fa LIKE bseg-wrbtr ,
fc LIKE t001-waers ,
lc LIKE t001-waers ,
ty LIKE tcurr-kurst .
fa = 100.
fc = 'JPY' .
lc = 'RMB' .
ty = 'M'.
curr_ex = fa .
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_INTERNAL'
EXPORTING
currency = fc
amount_external = curr_ex
max_number_of_digits = 13
IMPORTING
amount_internal = fa.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
date = date
foreign_amount = fa
foreign_currency = fc
local_currency =