<PRE>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 downtab OCCURS 100,
content(500),
END OF downtab.
DATA: BEGIN OF head OCCURS 100,
header(1),
txjcd(6),
aa(20),
end of head.
head-header = '1'.
head-txjcd = '가나다라마'.
head-aa = '아자차'.
append head.
* Non Unicode(한글 2바이트로 인식)
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 = head
langu = '3'
IMPORTING
cont = downtab-content.
CATCH cx_sy_conversion_codepage .
CATCH cx_parameter_invalid_range .
ENDTRY.
APPEND downtab.
LOOP AT downtab.
WRITE : /1(100) downtab-content.
ENDLOOP.
</PRE>
l_wa TYPE nls_langu_cp_line,
cc TYPE REF TO cl_nls_struc_container.
*
DATA: BEGIN OF downtab OCCURS 100,
content(500),
END OF downtab.
DATA: BEGIN OF head OCCURS 100,
header(1),
txjcd(6),
aa(20),
end of head.
head-header = '1'.
head-txjcd = '가나다라마'.
head-aa = '아자차'.
append head.
* Non Unicode(한글 2바이트로 인식)
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 = head
langu = '3'
IMPORTING
cont = downtab-content.
CATCH cx_sy_conversion_codepage .
CATCH cx_parameter_invalid_range .
ENDTRY.
APPEND downtab.
LOOP AT downtab.
WRITE : /1(100) downtab-content.
ENDLOOP.
</PRE>
댓글 8
-
bd
2007.06.29 10:17
... 잘 이해가 안가는 부분이 프로그램 설명좀 부탁 드림니다.. -
체인지
2007.11.20 20:34
좋은 자료 감사합니다 -
Norton
2008.08.21 19:20
감사합니다 ^^. -
김진
2008.11.21 02:59
감사합니다
-
COMAN
2008.12.09 01:42
,좋은 자료 감사합니다.
-
초범이
2009.02.23 20:41
저희 회사는 한글 말고 중국어,영어,인도어 각종 나라가 다 있는뎅 CODEPAGE 8500은 한글은 안깨지는뎅 중국어 간체는 깨지는것같더라구요
테이블 TCP00A(Code Page Attributes)을 보시면 아래 지원하는 CODEPAGE가 나와요 거기서 4310은 유니코드를 지원하는데 이것을 쓰면 중국어 한글 다 정상적으로 나오드라구요
사용하다보면 아직 완전하지는 않지만 도움이 되었으면 합니다.
감사합니다.
-
강철구
2009.07.02 00:13
좋은자료 감사해요..^^ -
들아쿠라
2010.06.22 22:26
고맙습니다.