ABAP 自动填充DATAX

本文主要是介绍ABAP 自动填充DATAX，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

问题

经常做BAPI开发的时候，SAP有个什么DATAX的表对应DATA，每次都要写一堆成对的DATA和DATAX，不然就会修改失败，每次复制粘贴也有点麻烦而且容易漏

代码实现

群里大姑刚好写了段代码用来匹配这个DATA和DATAX格式的，稍微优化了一下封装成function用来适配各种场景
函数代码

FUNCTION zdemo_seele03.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(IT_DATA) TYPE  ANY TABLE
*"  CHANGING
*"     REFERENCE(CT_DATAX) TYPE  ANY TABLE
*"----------------------------------------------------------------------FIELD-SYMBOLS: <fs_data>       TYPE any,<fs_cell_data>  TYPE any,<fs_datax>      TYPE any,<fs_cell_datax> TYPE any.DATA: lr_data        TYPE REF TO data,lr_datax       TYPE REF TO data,lo_str_descr   TYPE REF TO cl_abap_structdescr,lo_strx_descr  TYPE REF TO cl_abap_structdescr,lo_ele_descr   TYPE REF TO cl_abap_elemdescr,lo_elex_descr  TYPE REF TO cl_abap_elemdescr,ls_comp_descr  TYPE abap_compdescr.*&--Get structure of data and dataxCREATE DATA lr_data LIKE LINE OF it_data.ASSIGN lr_data->* TO <fs_data>.lo_str_descr ?= cl_abap_structdescr=>describe_by_data( <fs_data> ).CREATE DATA lr_datax LIKE LINE OF ct_datax.ASSIGN lr_datax->* TO <fs_datax>.lo_strx_descr ?= cl_abap_typedescr=>describe_by_data( <fs_datax> ).*&--Foreach rowLOOP AT it_data ASSIGNING <fs_data>." Foreach cellLOOP AT lo_str_descr->components INTO ls_comp_descr.ASSIGN COMPONENT ls_comp_descr-name OF STRUCTURE <fs_data> TO <fs_cell_data>." check whether data cell field name equals datax cell field nameIF <fs_cell_data> IS NOT INITIAL.READ TABLE lo_strx_descr->components TRANSPORTING NO FIELDS WITH KEY name = ls_comp_descr-name.IF sy-subrc = 0.ASSIGN COMPONENT ls_comp_descr-name OF STRUCTURE <fs_datax> TO <fs_cell_datax>.lo_elex_descr ?= cl_abap_typedescr=>describe_by_data( <fs_cell_datax> )." field name is the same, then check whether element name equals special char1 field( BAPIUPDATE CHAR1CFD_CUSTOM CHANGE_INDICATOR )
*          IF lo_elex_descr->absolute_name CS 'BAPIUPDATE'      OR
*             lo_elex_descr->absolute_name CS 'CHAR1CFD_CUSTOM' OR
*             lo_elex_descr->absolute_name CS 'CHANGE_INDICATOR'.
*            <fs_cell_datax> = 'X'.
*          ELSE.
*            <fs_cell_datax> = <fs_cell_data>.
*          ENDIF." check whether element name is the samelo_ele_descr ?= cl_abap_typedescr=>describe_by_data( <fs_cell_data> ).IF lo_ele_descr->absolute_name = lo_elex_descr->absolute_name.<fs_cell_datax> = <fs_cell_data>.ELSE.<fs_cell_datax> = 'X'.ENDIF.ENDIF.ENDIF.ENDLOOP.ct_datax = VALUE #( BASE ct_datax( <fs_datax> ) ).ENDLOOP.ENDFUNCTION.

测试场景

*&---------------------------------------------------------------------*
*& Report ZDEMO_SEELE12
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zdemo_seele12.DATA: lt_data  TYPE TABLE OF bapimepoitem,lt_datax TYPE TABLE OF bapimepoitemx.lt_data = VALUE #( ( po_item = '00010' material = 'M001' )( po_item = '00020' material = 'M001' ) ).*lt_datax = VALUE #( ( po_item = '00010' material = 'X' )
*                    ( po_item = '00020' material = 'X' ) ).CALL FUNCTION 'ZDEMO_SEELE03'EXPORTINGit_data  = lt_dataCHANGINGct_datax = lt_datax.BREAK-POINT.

下面是两位大姑的聊天截图，感恩大姑分享经验和思路~

这篇关于ABAP 自动填充DATAX的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---