ABAP 动态创建内表

来源：互联网发布：像程序员一样思考pdf 编辑：程序博客网时间：2024/04/30 15:27

REPORT ZLC_TEST09 .

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.

DATA: dyn_table TYPE REF TO data.

DATA: dyn_wa TYPE REF TO data.

FIELD-SYMBOLS :

<dyn_table> TYPE table,

<dyn_wa> TYPE ANY,

<dyn_field> TYPE ANY,

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

*创建动态工作区结构

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

*******************动态编辑数据********************************

IF P_NAME = 'T001'."这里以公司代码表为例

ASSIGN COMPONENT 'BUKRS' OF STRUCTURE <dyn_wa> TO <FS_STR>.

<FS_STR> = '9998'.

append <dyn_wa> to <dyn_table>.

<FS_STR> = <FS_STR> + 1.

append <dyn_wa> to <dyn_table>.

ENDIF.

*******************动态编辑数据********************************

*显示内表中的数据

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.

1 0