Hi,
This may be a little late but here you go anyway:
Check this out:
The path for the entire structure to get the sample code is:
Program HTWCTXM0 > Include PCTXMTWS > etc etc
Check out include PCTXMTWS
There is a Form called get_addr
Inside this Form there's a FM HR_TW_ADDRESS.
This FM gets the IT0006 address details and somewhere down the liine runs a check to see if the "Full Address" has every character in double byte.
The "TW" part of it is Taiwan, (the address data needs to be in double byte chinese, so this FM runs the check on it)
In this FM it calls a form called chk_fulltyp.
In here it loops through each character of the given string and checks if the character is a double byte:
The section of code that does this:
WHEN 2.
dft_cnt = 0.
tot_len = strlen( org_str ).
while dft_cnt < tot_len.
char = org_str+dft_cnt(1).
point = cl_abap_conv_out_ce=>uccp( char ).
if point <= last_ascii_zf.
retcode = '1'.
IF TYPE EQ 'A'.
RAISE CONTAIN_NO_FULL_TYPE.
ENDIF.
dft_cnt = tot_len. " FOR EXIT WHILE
endif.
dft_cnt = dft_cnt + 1.
endwhile.
you could debug the variable "point" and see the double byte equivalent value for the current character in the string...
...and progress from there.
I do not know fully what cl_abap_conv_out_ce=>uccp does but it seems to return the double byte equivalent value. Please correct me if I am wrong on this.
Bluesky
