动态内表

最新推荐文章于 2024-01-04 17:48:26 发布

原创最新推荐文章于 2024-01-04 17:48:26 发布 · 465 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#table #structure #include #types #function #build

DATA: d_ref TYPE REF TO data,
      d_ref2 TYPE REF TO data ,
      i_alv_cat TYPE TABLE OF lvc_s_fcat,
      ls_alv_cat LIKE LINE OF i_alv_cat.

TYPES tabname LIKE dcobjdef-name .

PARAMETER: p_tablen TYPE tabname.

DATA: BEGIN OF itab OCCURS 0.
INCLUDE STRUCTURE dntab.
DATA: END OF itab.

FIELD-SYMBOLS : <f_fs> TYPE table,
                <f_fs1> TYPE table,
                <f_fs2> TYPE ANY,
                <f_fs3> TYPE table.

REFRESH itab.

CALL FUNCTION 'NAMETAB_GET'
EXPORTING
    langu          = sy-langu
    tabname        = p_tablen
TABLES
    nametab        = itab
EXCEPTIONS
    no_texts_found = 1.

LOOP AT itab .
ls_alv_cat-fieldname = itab-fieldname.
ls_alv_cat-ref_table = p_tablen.
ls_alv_cat-ref_field = itab-fieldname.
APPEND ls_alv_cat TO i_alv_cat.
ENDLOOP.

* internal table build
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = i_alv_cat
IMPORTING
ep_table = d_ref.
ASSIGN d_ref->* TO <f_fs>.

SELECT * FROM (p_tablen) INTO CORRESPONDING FIELDS OF TABLE <f_fs>.

LOOP AT <f_fs> ASSIGNING <f_fs2>.
*your code goes here.
ENDLOOP.