FUNCTION hr_ru_convert_hex_to_string.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(XSTRING) TYPE  XSTRING
*"  EXPORTING
*"     REFERENCE(CSTRING) TYPE  STRING
*"----------------------------------------------------------------------

** codepages
  DATA: iv_codepage_to TYPE cpcodepage VALUE '1504'.
  DATA: iv_codepage_fr TYPE cpcodepage VALUE '1503'.
** convert class
  DATA: lv_converter TYPE REF TO cl_abap_conv_obj, "cl_abap_conv_x2x_ce
        lv_buffer TYPE xstring.
  DATA: x_buffer(1024) TYPE x.

  INCLUDE zx_convert_hts_t.

  lv_buffer = xstring.
** check logon language
  IF sy-langu EQ 'R'.
    iv_codepage_to = '1500'.
  ENDIF.
  IF cl_abap_char_utilities=>charsize EQ 2.
     CALL FUNCTION 'SCP_CODEPAGE_FOR_LANGUAGE'
      EXPORTING
        language    = sy-langu
      IMPORTING
        codepage    = iv_codepage_to
      EXCEPTIONS
        no_codepage = 1
        OTHERS      = 2.
    IF sy-subrc <> 0.
      iv_codepage_to = '4110'.
    ENDIF.
  ENDIF.
** convert string
  CREATE OBJECT lv_converter
     EXPORTING
    incode = iv_codepage_fr
       outcode          = iv_codepage_to
     EXCEPTIONS
       invalid_codepage = 1
       internal_error   = 2
       OTHERS           = 3.
  CALL METHOD lv_converter->convert_base_chars
    EXPORTING
      inbuff         = lv_buffer
      outbufflg      = 0
    IMPORTING
      outbuff        = cstring
    EXCEPTIONS
      internal_error = 1
      OTHERS         = 2.

ENDFUNCTION.