UNICODE CONVERSION

출처: e-abap

모 사이트에서 지인에게 물어사용했던 방법입니다.

혹 필요하신분 계실지도 몰라서.

내용인 즉, 은행전송파일을 만드는과정중 자릿수를 마춰야하는데,,

이름과 같이 한글인경우 한글을 1바이트로 인식해 자릿수가 틀려지는 문제가 있어 사용했던 방법입니다

DATA: cp_tab  TYPE         nls_langu_cp_tab,
      l_wa    TYPE         nls_langu_cp_line,
      cc      TYPE REF TO  cl_nls_struc_container.
DATA: BEGIN OF FILETAB OCCURS 0,
       TEXT(50),
      END   OF FILETAB.

LOOP AT  textfile.
   CLEAR: filetab.
   l_wa-langu = '3'.
   l_wa-codepage = '8500'.
   INSERT l_wa INTO TABLE cp_tab.
   cc = cl_nls_struc_container=>create( cp_tab = cp_tab ).
   TRY.
    CALL METHOD cc->struc_to_cont
    EXPORTING
     struc = textfile
     langu = '3'
    IMPORTING
     cont  = filetab-text.
     CATCH cx_sy_conversion_codepage .
     CATCH cx_parameter_invalid_range .
   ENDTRY.
   APPEND filetab.
   CLEAR  filetab.
ENDLOOP.