我做的去除乱码FM

FUNCTION ZAZ_CLEAR_SPECIAL_CHAR.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(I_CHAR) TYPE  /SAPDMC/TEXT60
*"  EXPORTING
*"     REFERENCE(E_CHAR) TYPE  /SAPDMC/TEXT60
*"----------------------------------------------------------------------
  DATA: l_strlen TYPE i,
        l_offset TYPE i,
        cr(2)    TYPE c,
        lv_subrc TYPE i.

  DATA lv_char TYPE /SAPDMC/TEXT60.

*  MOVE '!' TO cr.

  l_strlen = STRLEN( i_char ).

  IF l_strlen GT 0.

*    DO l_strlen TIMES.
*      IF i_char+l_offset(1) < ''.
*        i_char+l_offset(1) = ' '.
*      ENDIF.
*      ADD 1 TO l_offset.
*    ENDDO.

  ENDIF.

  MOVE i_char TO lv_char.
  TRANSLATE lv_char TO UPPER CASE.
  REPLACE ALL OCCURRENCES OF '#' IN lv_char WITH space.
  REPLACE ALL OCCURRENCES OF '!' IN lv_char WITH space.
*  REPLACE ALL OCCURRENCES OF '&' IN lv_char WITH space.
*  REPLACE ALL OCCURRENCES OF '''' IN lv_char WITH space.
*  REPLACE ALL OCCURRENCES OF '>' IN lv_char WITH space.
*  REPLACE ALL OCCURRENCES OF '[' IN lv_char WITH space.

  REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN lv_char WITH space.
  REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>newline IN lv_char WITH space.
  REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab IN lv_char WITH space.
      REPLACE ALL OCCURRENCES OF CL_ABAP_CHAR_UTILITIES=>VERTICAL_TAB
      IN lv_char WITH ''.
      REPLACE ALL OCCURRENCES OF CL_ABAP_CHAR_UTILITIES=>FORM_FEED IN
      lv_char WITH ''.
      REPLACE ALL OCCURRENCES OF CL_ABAP_CHAR_UTILITIES=>BACKSPACE IN
      lv_char WITH ''.

*  CALL FUNCTION 'RSKC_CHAVL_CHECK'
*    EXPORTING
*      i_chavl     = lv_char
*    IMPORTING
*      e_err_subrc = lv_subrc.
*
*  IF lv_subrc EQ 4.
*    e_char = ''.
*  ELSE.
    MOVE lv_char TO e_char.

ENDFUNCTION.