TRANS CODE

最新推荐文章于 2023-12-15 12:55:16 发布

gydzhengzhuo

最新推荐文章于 2023-12-15 12:55:16 发布

阅读量762

点赞数

文章标签： encoding hex date buffer input user

本文链接：https://blog.csdn.net/gydzhengzhuo/article/details/5824379

版权

FORM hex_to_utf8 USING p_hex_source TYPE xsequence
                 CHANGING p_result TYPE simple.
  DATA: cv TYPE REF TO cl_abap_conv_in_ce.
  DATA: conv TYPE REF TO cl_abap_conv_x2x_ce.

  cv = cl_abap_conv_in_ce=>create( encoding = 'UTF-8' ).

  CALL METHOD cv->convert
    EXPORTING
      input = p_hex_source
    IMPORTING
      data  = p_result.

*  conv = cl_abap_conv_x2x_ce=>create(
*         in_encoding = 'UTF-8'
*         in_endian = 'L'
*         out_encoding = 'UTF-8'
*         out_endian = 'B'
*         input = p_hex_source
*       ).
*CALL METHOD conv->convert_c( n = 100 ).
*CALL METHOD conv->convert_i( ).
*p_result = conv->get_out_buffer( ).

ENDFORM.

update ecc_aps.int_rt_mate_stock_info set
           MATERIAL_CODE = :wa_ekpo-matnr,
           FACTORY_ID = :wa_ekpo-werks,

           STOCK_NUM = :wa_ekpo-menge,
           RESIDUAL_NUM = :l_menge,
           MODIFIED_FLAG = :wa_ekpo-kz,
           UPDATE_DATE = to_date(:sy-datum,'yyyymmdd'),
           UPDATE_USER = utl_raw.cast_to_varchar2(:uname)
        where
          STOCK_SERIAL_NO = :wa_ekpo-ebeln
          and
          ROW_PROJECT = :wa_ekpo-ebelp