ABAP 动态生成内表方法一

在做动态更新程序的时候，要注意两点：

1.使用modify (p_tabname) from <dyn_wa>. 的时候，一定要确定要更新的字段是不是系统表的关键字段，如果是关键字段的话，需要先删除这条记录，delete (p_tabname) from <dyn_wa>.再进行modify,因为modify进行更新的时候如果不存在就新增，这点一定要注意。

2.如果使用UPDATE进行更新，对于非主键字段的改变还是可以的，但是对于主键字段，只能用MODIFY了。直接对SAP数据做UPDATE和MODIFY是很危险的，不到万不得已，最好不要做这些操作。如果万一出问题，会很严重的。这里就不用更新和删除程序作为测试程序了，直接做一个动态内表ALV显示的测试程序，道理和更新与删除差不多，希望对有这方面需求的朋友有所帮助！

方法一：

REPORT ZCL_TEST01

TYPE-POOLS:abap.

PARAMETERS p_name TYPE tabname.

DATA lt_table TYPE TABLE OF dfies. "字段结构表

DATA ls_table TYPE dfies.

DATA lr_struc TYPE REF TO cl_abap_structdescr.

DATA lr_table TYPE REF TO cl_abap_tabledescr.

DATA lr_type TYPE REF TO cl_abap_typedescr.

DATA lr_data  TYPE REF TO cl_abap_datadescr.

DATA lt_comp TYPE  abap_component_tab.

DATA ls_comp LIKE LINE OF  lt_comp.

DATA dyn_wa TYPE REF TO data.

DATA dyn_table TYPE REF TO data.

DATA l_string TYPE string.

FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,

                            <dyn_wa> TYPE ANY.

*1.获取表中的字段结构

CALL FUNCTION 'DDIF_NAMETAB_GET'

  EXPORTING

    tabname   = p_name

  TABLES

    dfies_tab = lt_table

  EXCEPTIONS

    not_found = 1

    OTHERS    = 2.

IF sy-subrc <> 0.

  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

LOOP AT lt_table INTO ls_table.

  CONCATENATE ls_table-tabname '-' ls_table-fieldname INTO l_string.

  ls_comp-name = ls_table-fieldname.

*读取字段类型

  CALL METHOD cl_abap_datadescr=>describe_by_name

    EXPORTING

      p_name         = l_string

    RECEIVING

      p_descr_ref    = lr_type

    EXCEPTIONS

      type_not_found = 1

      OTHERS         = 2.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

  ls_comp-type ?= lr_type.

  APPEND ls_comp TO lt_comp.

  CLEAR ls_comp.

ENDLOOP.

*根据字段目录创建动态结构类型

CALL METHOD cl_abap_structdescr=>create

  EXPORTING

    p_components = lt_comp

  RECEIVING

    p_result     = lr_struc.

*根据动态结构创建动态内表类型

CALL METHOD cl_abap_tabledescr=>create

  EXPORTING

    p_line_type = lr_struc

  RECEIVING

    p_result    = lr_table.

*参照动态结构类型和动态内表类型创建内表与工作区

CREATE DATA dyn_wa    TYPE HANDLE lr_struc.

CREATE DATA dyn_table TYPE HANDLE lr_table.

*指定内表与工作区到字段符号

ASSIGN dyn_wa->* TO <dyn_wa>.

ASSIGN dyn_table->* TO <dyn_table>.

*从动态表中取数到动态内表中

  SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table> UP TO 100

ROWS FROM (p_name).

*显示内表中的数据

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_structure_name = p_name

    TABLES

      t_outtab         = <dyn_table>

    EXCEPTIONS

      program_error    = 1

      OTHERS           = 2.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.