系統是老R3,非Unicdoe系統,某些表字段是從外界系統過來的,由於接口設計的固定長度,外界系統傳超長字符串過來后,就可能從最后一個中文字符中間截斷,這問題到還沒什么,只不過顯示時最后一個字符顯示成亂碼而已,但是,如果將這些表字段撈出來與其它分隔符(如豎線) CONCATENATE時,可能會將這個分隔符吃掉,導致這些數據拋到對方系統后,無法再分隔,還原成一個個字段
如下面運行過程中:c3本身是一個 司 字后面跟半個中文字符,當使用 豎線分隔符與0字符CONCATENATE后,發現豎線沒有了,它與前面的?問號(注:不是真正的問號,而是由於編碼B5在GBK字符集里找不到,ABAP編輯器以問號顯示而已)合成 祙 字了,即豎線被前面的半個漢字編碼給吃掉了:

下面是經過frm_trunct_last 方法將半個中文字符截斷后,再CONCATENATE拼接時,分隔符豎線就不會被吃掉了:
DATA: str TYPE string.
DATA: x3(3) TYPE x.
DATA: c3(3) TYPE c.
FIELD-SYMBOLS:<c3> TYPE x.
START-OF-SELECTION.
ASSIGN c3 TO <c3> CASTING.
"CBBE為“司”的編碼,B5為前半個漢字編碼,如“祙、單”等字的前半個就是B5
<c3> = 'CBBEB5'.
"
模擬半個中文
WRITE:/ c3.
str = c3.
CONCATENATE str `0` INTO str SEPARATED BY `|`.
WRITE:/ str.
str = c3.
PERFORM frm_trunct_last USING str .
CONCATENATE str `0` INTO str SEPARATED BY `|`.
WRITE:/ str.
*&---------------------------------------------------------------------*
*& Form frm_trunct_last
*&---------------------------------------------------------------------*
* 如果字符串最后一個是半個字符,則截掉
*----------------------------------------------------------------------*
* -->STR 如果不會吃字符,則返回原字符串
*----------------------------------------------------------------------*
FORM frm_trunct_last USING str TYPE string .
DATA: xstr TYPE xstring.
DATA: l_codepage(4) TYPE n .
DATA: l_encoding(20).
DATA: truc_str TYPE string.
DATA: off_index TYPE i.
DATA: trunct_str TYPE string.
DATA: last_char TYPE string.
DATA: last_char_code TYPE xstring.
DATA: len TYPE i.
DATA: x7f TYPE x VALUE '7F'.
DATA: convout TYPE REF TO cl_abap_conv_out_ce.
DATA: convin TYPE REF TO cl_abap_conv_in_ce.
CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
EXPORTING
external_name = 'UTF-16BE'
IMPORTING
sap_codepage = l_codepage.
l_encoding = l_codepage.
convout = cl_abap_conv_out_ce=>create( encoding = l_encoding ).
convout->write( data = str ).
xstr = convout->get_buffer( ).
truc_str = xstr.
len = STRLEN( truc_str ).
len = len / 4 .
off_index = 4 * ( len - 1 ).
xstr = truc_str+0(off_index).
convin = cl_abap_conv_in_ce=>create( encoding = l_encoding input = xstr ).
CALL METHOD convin->read
IMPORTING
data = trunct_str.
off_index = 4 * ( len - 1 ).
xstr = truc_str+off_index(4).
convin = cl_abap_conv_in_ce=>create( encoding = l_encoding input = xstr ).
CALL METHOD convin->read
IMPORTING
data = last_char.
CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
EXPORTING
external_name = 'GBK'
IMPORTING
sap_codepage = l_codepage.
l_encoding = l_codepage.
convout = cl_abap_conv_out_ce=>create( encoding = l_encoding ).
convout->write( data = last_char ).
last_char_code = convout->get_buffer( ).
len = XSTRLEN( last_char_code ).
IF len = 1 AND last_char_code > x7f.
str = trunct_str.
ENDIF.
ENDFORM. "frm_trunct_last
注:分隔符是否被吃掉了,在屏幕輸出上是看不出來的,如下面是輸出結果:
但從上面的調試過程可以看出是被吃掉了,經測試傳到其他系統后,也是會被吃掉的
