How to convert the character value to currency/numeric

Question

Hi,
See the sample code here
data: v_qtr_field(7).
data: w_low_limit like glt0-kslvt,
      w_amount like glt0-hslvt.
w_low_limit = 02.
w_max_period = 3.
concatenate 'HSL' w_low_limit into v_qtr_field.
*comment
*I am looking for a field formation thru above code like in GLT0 table like HSL02,HSL03 *etc based on the value user entered in the selection *screen
DO w_max_period TIMES
  VARYING w_amount FROM v_qtr_field NEXT v_qtr_field + 1.
   t_trans_values-dmbe2 = t_trans_values-dmbe2 + w_amount.
  ENDDO.
I am facing problem in the Do loop as it wont allows multiple data types. can you suggest me how to convert the v_qtr_field whose data type is character to currency?

Answer 1

Hi,
Please check this code .
PERFORM write_currency
              USING buf_anla-urwrt t_dates-waers t_txw_anla-urwrt.
*       FORM WRITE_CURRENCY                                           *
*       convert currency amount to string                             *
*       - use decimal point                                           *
*       - remove separator characters                                 *
*  -->  P_AMOUNT                                                      *
*  -->  P_CURRENCY_UNIT                                               *
*  -->  P_STRING                                                      *
FORM WRITE_CURRENCY
     USING P_AMOUNT        TYPE P
           P_CURRENCY_UNIT LIKE TCURC-WAERS
           P_STRING        TYPE C.
  DATA: DEC2POINT(2) TYPE C VALUE ',.'.
* convert separator to decimal point
  WRITE P_AMOUNT TO P_STRING CURRENCY P_CURRENCY_UNIT
        NO-GROUPING
        NO-SIGN
        LEFT-JUSTIFIED.
  TRANSLATE P_STRING USING DEC2POINT.
* put minus sign before number
  IF p_amount < 0.
    SHIFT P_STRING RIGHT.
    P_STRING(1) = '-'.
  ENDIF.
ENDFORM.
<i>Hope This Info Helps YOU.</i>
Regards,
Lakshmi