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_TEST03.

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.

文章系转载，点击原文 查看原博客