report  zunicode_031.

data : l_text(3) type c,
       l_len      type i.

data : seltab  type table of rsparams with header line.

data: buffer1 type xstring,
      buffer2 type xstring,
      p_buf1(100) type c,
      p_buf2(100) type c,
      conv type ref to cl_abap_conv_out_ce.

conv = cl_abap_conv_out_ce=>create(
                            encoding = '8500'
                            endian = 'B'
                           ).
data xstr_len type i.
data: off_len      type i.
constants: blank(1) type x value '20'.

l_text = '가나다'.
l_len  = strlen( l_text ).

conv->convert( exporting data = l_text
               importing buffer = buffer1 ).

conv->convert( exporting data = l_len
               importing buffer = buffer2 ).

* Output buffers with converted data call up
xstr_len = xstrlen( buffer1 ).

xstr_len = xstrlen( buffer1 ).

if l_len > xstr_len.
  off_len = l_len - xstr_len.
  do off_len times.
    concatenate buffer1 blank into buffer1 in byte mode.
  enddo.
else.
  buffer1 = buffer1+0(l_len).
endif.

p_buf1 = buffer1.
p_buf2 = buffer2.

clear seltab.
seltab-selname = 'P_BUF1'.
seltab-kind    =  'P'.
seltab-sign    = 'I'.
seltab-option  = 'EQ'.
seltab-low     = p_buf1.
append seltab.

clear seltab.
seltab-selname = 'P_BUF2'.
seltab-kind    =  'P'.
seltab-sign    = 'I'.
seltab-option  = 'EQ'.
seltab-low     = p_buf2.
append seltab.

submit zunicode_032
       with selection-table seltab 
       via selection-screen
 and return.