Conver Char To Curr

DATA : Text_Exam(255) TYPE C,
Text_Out(255) TYPE C,
Curr_Value TYPE P DECIMALS 2.

Text_Exam = ' 150.000'.
Text_Out = Text_Exam.
DO 5 TIMES.
REPLACE '.' WITH ' ' INTO Text_Out.
ENDDO.
CONDENSE Text_Out NO-GAPS.
MOVE Text_Out TO Curr_Value.
WRITE : / Text_Out.
WRITE : / Curr_Value CURRENCY 'USD'.