UTF-8 BOM Karakteri Ekleme

Metin, CSV gibi dosyaların farklı dildeki işletim sistemlerinde de düzgün görüntülenebilmesi için dosyanın başına UTF-8 BOM karakterini eklemek gerekebilir.
Bu karakterler
u00EFu00BBu00BF

  DATA : lv_satir(850) TYPE c.
  DATA : lv_xstr  TYPE xstring.
  DATA : lv_str  TYPE string.
  DATA : lV_CODEPAGE TYPE CPCODEPAGE VALUE `4110`  .

 

 

OPEN DATASET targetpath FOR OUTPUT IN TEXT MODE ENCODING UTF-8
      MESSAGE lv_message.
      IF sy-subrc EQ 0.
        clear lv_xstr.
        CONCATENATE  cl_abap_char_utilities=>byte_order_mark_utf8 lv_xstr into lv_xstr in BYTE MODE.

        CALL METHOD cl_bcs_convert=>XSTRING_TO_STRING
          exporting
        IV_XSTR   = lv_xstr
        IV_CP    = LV_CODEPAGE
          RECEIVING
            RV_STRING  = lv_str .

            lv_satir = lv_str.
            APPEND lv_satir TO lt_file.
            TRANSFER lv_satir TO  targetpath.