WHILE p_n LE p_k.
        CLEAR: fieldname.
        CASE p_curtp.
          WHEN '10'.
            CONCATENATE 'WOG' p_n INTO fieldname.
            PERFORM f_dyn_list USING fieldname tabname.
          WHEN '30'.
            CONCATENATE 'WKG' p_n INTO fieldname.
            PERFORM f_dyn_list USING fieldname tabname.
        ENDCASE.
        ADD 1 TO p_n.
      ENDWHILE.
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_dyn
    IMPORTING
      ep_table                  = <fs_data_coep>
    EXCEPTIONS
      generate_subpool_dir_full = 1
      OTHERS                    = 2.

REPORT TEST.

FIELD-SYMBOLS:
<t001>, <fs>.

DATA:
lr_t001 TYPE REF TO data.

CONSTANTS:
s1(30) VALUE 'T001',
s2(30) VALUE 'BUKRS',
s3(30) VALUE 'BUTXT'.

DATA:
lt_where(72) OCCURS 0 WITH HEADER LINE.

CREATE DATA lr_t001 TYPE (s1).
ASSIGN lr_t001->* TO <t001>.
ASSIGN (s1) TO <fs>.

CONCATENATE s2 '=' '3000' INTO lt_where SEPARATED BY space.
APPEND lt_where.
SELECT *
INTO <t001>
FROM (s1)
WHERE (lt_where).
ASSIGN COMPONENT s3 OF STRUCTURE <t001> TO <fs>.
WRITE: / s3, ': ', <fs>.
ENDSELECT.

  DATA: table_type  TYPE REF TO cl_abap_tabledescr,
        struct_type TYPE REF TO cl_abap_structdescr,
        comp_tab    TYPE cl_abap_structdescr=>component_table,
        comp        LIKE LINE OF comp_tab,
        dref        TYPE REF TO data.

  FIELD-SYMBOLS: <table> TYPE table.

  comp-name = 'column1'.
  comp-type = cl_abap_elemdescr=>get_c( 40 ).
  APPEND comp TO comp_tab.
  comp-name = 'column2'.
  comp-type = cl_abap_elemdescr=>get_i( ).
  APPEND comp TO comp_tab.
  struct_type = cl_abap_structdescr=>create( comp_tab ).

  table_type = cl_abap_tabledescr=>create( struct_type ).
  CREATE DATA dref TYPE HANDLE table_type.

  ASSIGN dref->* TO <table>.