ABAP 动态生成内表的3种方法(Several Methods of Dynamic Internal Tab_SAP刘梦_新浪博客...

转自：http://www.cnblogs.com/VerySky/articles/2514436.html

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

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

 

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

【因为尖括号会被误解析，所以使用书名号做了替换】

附1：

REPORT ZCL_TEST026.

 

 

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.

 

附2：

 

REPORT ZCL_TEST027.

 

TYPE-POOLS:abap.

 

PARAMETERS p_name TYPE tabname.

 

DATA: d_ref TYPE REF TO data,

          lt_alv_cat TYPE TABLE OF lvc_s_fcat,

          ls_alv_cat LIKE LINE OF lt_alv_cat.

 

 

DATA: lt_table LIKE TABLE OF dntab.

DATA: ls_table TYPE dntab.

 

 

FIELD-SYMBOLS : 《dyn_table》 TYPE table,

                             《dyn_wa》 TYPE ANY,

                             《dyn_field》 TYPE ANY.

 

*取出表结构的字段目录

CALL FUNCTION 'NAMETAB_GET'

  EXPORTING

    langu          = sy-langu

    tabname        = p_name

  TABLES

    nametab        = lt_table

  EXCEPTIONS

    no_texts_found = 1.

 

*根据取出的字段目录生成参考字段目录

LOOP AT lt_table INTO ls_table.

  ls_alv_cat-fieldname = ls_table-fieldname.

  ls_alv_cat-ref_table = p_name.

  ls_alv_cat-ref_field = ls_table-fieldname.

  APPEND ls_alv_cat TO lt_alv_cat.

  CLEAR ls_alv_cat.

ENDLOOP.

 

*内表创建

CALL METHOD cl_alv_table_create=》create_dynamic_table

  EXPORTING

    it_fieldcatalog = lt_alv_cat

  IMPORTING

    ep_table        = d_ref.

 

*指定生成的内表到字段符号

ASSIGN d_ref-》* 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.

 

 

 

附3：

 

REPORT ZCL_TEST028.

 

 

 

PARAMETERS p_name TYPE tabname.

 

 

DATA: dyn_table TYPE REF TO data.

DATA: dyn_wa TYPE REF TO data.

 

 

FIELD-SYMBOLS: 《dyn_table》 TYPE table,

               《dyn_wa》 TYPE ANY.

 

 

*创建动态表结构

CREATE DATA dyn_table TYPE TABLE OF (p_name).

 

*创建动态内表

ASSIGN dyn_table-》* TO 《dyn_table》.

 

*创建动态工作区结构

CREATE DATA dyn_wa LIKE LINE OF 《dyn_table》.

 

*创建动态工作区

ASSIGN dyn_wa-》* TO 《dyn_wa》.

 

 

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

SELECT * INTO CORRESPONDING FIELDS OF TABLE 《dyn_table》 UP TO 100

 

ROWS FROM (p_name).

 

*对取出数据进行处理

LOOP AT 《dyn_table》 assigning 《dyn_wa》.

 "内表数据处理

ENDLOOP.

 

*显示内表中的数据

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.

 

 

 

转自：http://www.cnblogs.com/clsoho/archive/2010/07/23/1783851.html

 

ABAP动态内表使用的例子

*&---------------------------------------------------------------------*

*& Report  ZLEIY_ABAP_TEST

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

 

REPORT  ZLEIY_ABAP_TEST.

FIELD-SYMBOLS: 《dyn_table》 TYPE STANDARD TABLE,

               《dyn_wa》,

               《dyn_field》.

 

DATA: dy_table TYPE REF TO data,

      dy_line  TYPE REF TO data,

      it_structure TYPE lvc_t_fcat,

      wa_structure TYPE lvc_s_fcat.

 

 

START-OF-SELECTION.

  PERFORM create_structure.  " 定义内表的结构

 

  PERFORM create_dynamic_table.  " 按照定义的内表结构，产生一个内表

 

  PERFORM write_data_to_dyntable.  " 向动态内表中写数

 

  PERFORM output_dyntable_data.   " 从动态内表中取数，并写到屏幕

 

*&---------------------------------------------------------------------*

*&      Form  create_structure

*&---------------------------------------------------------------------*

FORM create_structure .

  wa_structure-fieldname = 'COL1'.  " 第一列列名

  wa_structure-col_pos   = 1.       " 表示第一列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表

  wa_structure-inttype = 'C'.       " 数据类型

  wa_structure-intlen = 6.          " 长度

  APPEND wa_structure TO it_structure.

 

  wa_structure-fieldname = 'COL2'.  " 第二列列名

  wa_structure-col_pos   = 2.       " 表示第二列--- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表

  wa_structure-inttype = 'C'.       " 数据类型

  wa_structure-intlen = 6.          " 长度

  APPEND wa_structure TO it_structure.

 

  wa_structure-fieldname = 'COL3'.  " 第三列名

  wa_structure-col_pos   = 3.       " 表示第三列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表

  wa_structure-inttype = 'C'.       " 数据类型

  wa_structure-intlen = 6.          " 长度

  APPEND wa_structure TO it_structure.

 

ENDFORM.                    " create_structure

*&---------------------------------------------------------------------*

*&      Form  create_dynamic_table

*&---------------------------------------------------------------------*

FORM create_dynamic_table .

 

  CALL METHOD cl_alv_table_create=》create_dynamic_table

    EXPORTING

      it_fieldcatalog = it_structure

    IMPORTING

      ep_table        = dy_table.

 

  ASSIGN dy_table-》* TO 《dyn_table》.    " 用表类型指针 《dyn_table》 指向 数据对象的内容.

ENDFORM.                    " create_dynamic_table

 

 

*&---------------------------------------------------------------------*

*&      Form  write_data_to_dyntable

*&---------------------------------------------------------------------*

FORM write_data_to_dyntable .

  DATA:wa_new_line TYPE REF TO data.

  DATA:i TYPE n.

  DATA:j TYPE n.

  CREATE DATA wa_new_line LIKE LINE OF 《dyn_table》.  " 建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构

  ASSIGN wa_new_line-》* TO 《dyn_wa》.

 

  " 用《dyn_wa》指针指向该结构

  DO 3 TIMES.

    i = i + 1.

    CLEAR j.

    LOOP AT it_structure INTO wa_structure.

      j = j + 1.

      ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE 《dyn_wa》 TO 《dyn_field》.  " 用指针 《dyn_field》指向工作区《dyn_wa》中的一个字段，字段名为wa_structure-fieldname.

      CONCATENATE i j INTO 《dyn_field》.                                              " 给指针指向的字段赋值

    ENDLOOP.

    APPEND 《dyn_wa》 TO 《dyn_table》.

  ENDDO.

ENDFORM.                    " write_data_to_dyntable

 

*&---------------------------------------------------------------------*

*&      Form  output_dyntable_data

*&---------------------------------------------------------------------*

FORM output_dyntable_data .

  LOOP AT it_structure INTO wa_structure.

    WRITE: wa_structure-fieldname(5).

  ENDLOOP.

  LOOP AT 《dyn_table》 INTO 《dyn_wa》.

    WRITE: / .

    LOOP AT it_structure INTO wa_structure.

      ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE 《dyn_wa》 TO 《dyn_field》.  " 用指针 《dyn_field》指向工作区《dyn_wa》中的一个字段，字段名为wa_structure-fieldname.

      WRITE: 《dyn_field》.

    ENDLOOP.

  ENDLOOP.

ENDFORM.

 

 欢迎关注订阅号：SAP学习记录 （SAPlearning ）