动态内表

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.