BW特殊字符处理函数

FUNCTION zfm_bi_invlid_character.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(STR_IN) TYPE  STRING
*"  EXPORTING
*"     REFERENCE(STR_OUT) TYPE  STRING
*"----------------------------------------------------------------------
  DATA: zbgms(1000) TYPE c .
  DATA: intbgms TYPE i.
  DATA: bufferbgms TYPE xstring,
        hex_00     TYPE x VALUE '00',
        hex_01     TYPE x VALUE '01',
        hex_02     TYPE x VALUE '02',
        hex_03     TYPE x VALUE '03',
        hex_04     TYPE x VALUE '04',
        hex_05     TYPE x VALUE '05',
        hex_06     TYPE x VALUE '06',
        hex_07     TYPE x VALUE '07',
        hex_08     TYPE x VALUE '08',
        hex_09     TYPE x VALUE '09',
        hex_0a     TYPE x VALUE '0A',
        hex_0b     TYPE x VALUE '0B',
        hex_0c     TYPE x VALUE '0C',
        hex_0d     TYPE x VALUE '0D',
        hex_0e     TYPE x VALUE '0E',
        hex_0f     TYPE x VALUE '0F',
        hex_10     TYPE x VALUE '10',
        hex_11     TYPE x VALUE '11',
        hex_12     TYPE x VALUE '12',
        hex_13     TYPE x VALUE '13',
        hex_14     TYPE x VALUE '14',
        hex_15     TYPE x VALUE '15',
        hex_16     TYPE x VALUE '16',
        hex_17     TYPE x VALUE '17',
        hex_18     TYPE x VALUE '18',
        hex_19     TYPE x VALUE '19',
        hex_1a     TYPE x VALUE '1A',
        hex_1b     TYPE x VALUE '1B',
        hex_1c     TYPE x VALUE '1C',
        hex_1d     TYPE x VALUE '1D',
        hex_1e     TYPE x VALUE '1E',
        hex_1f     TYPE x VALUE '1F',
        hex_sp     TYPE x VALUE '20',
        conv1      TYPE REF TO cl_abap_conv_out_ce,
        conv2      TYPE REF TO cl_abap_conv_in_ce.

  zbgms = str_in.
 TRANSLATE zbgms TO UPPER CASE.
  intbgms = strlen( zbgms ).

  conv1 = cl_abap_conv_out_ce=>create(
  encoding = 'UTF-8'
  endian = 'L'
  ).

  CALL METHOD conv1->write( data = zbgms n = intbgms ).
  bufferbgms = conv1->get_buffer( ).

*   用空格(hex_sp)替换字符(hex_0A)#和!@(hex_0D);介于 HEX00 和 HEX1F 之间的十六位格式的字符替换为空
  REPLACE ALL OCCURRENCES OF hex_00 IN bufferbgms WITH hex_sp IN BYTE 

转载于:https://www.cnblogs.com/xmqlv20081008/p/7815366.html