data: a(15) type c,
      b like bseg-dmbtr.

a = '351.471,85-'.

perform convert_char_to_quan using a b.

write: / a, b.


form convert_char_to_quan using x like a
                       changing y like b.
   translate x using '. ,.'.
   condense x no-gaps.
   y = x.
endform.

DATA: lf_value LIKE zunikr_ictl-sum_p.

CALL FUNCTION 'RS_CONV_EX_2_IN_DTEL'
  EXPORTING  input_external                    = '123,09'
             dtel                              = 'DMBTR'
  IMPORTING  output_internal                   = lf_value
  EXCEPTIONS input_not_numerical               = 1
             too_many_decimals                 = 2
             more_than_one_sign                = 3
             ill_thousand_separator_dist       = 4
             too_many_digits                   = 5
             sign_for_unsigned                 = 6
             too_large                         = 7
             too_small                         = 8
             invalid_date_format               = 9
             invalid_date                      = 10
             invalid_time_format               = 11
             invalid_time                      = 12
             invalid_hex_digit                 = 13
             unexpected_error                  = 14
             invalid_dtel                      = 15
             field_and_dtel_incompatible       = 16
             input_too_long                    = 17
             no_decimals                       = 18
             invalid_float                     = 19
             conversion_exit_error             = 20
             OTHERS                            = 21.
IF sy-subrc <> 0.
* TODOERR:
  EXIT.
ENDIF.

WRITE: / lf_value DECIMALS 2.