Dynamic structure generation

DATA: mr_data     TYPE REF TO data,
          mr_str_type TYPE REF TO cl_abap_structdescr,
          mr_tab_type TYPE REF TO cl_abap_tabledescr.
 METHOD generate_structure.
    DATA: wa_fields TYPE zfiaa_dtc_fields,
          lt_comp   TYPE cl_abap_structdescr=>component_table,
          lv_full_name TYPE string.
    FIELD-SYMBOLS <comp> TYPE LINE OF cl_abap_structdescr=>component_table.
    LOOP AT mt_fields INTO wa_fields.
      CONCATENATE wa_fields-tabname wa_fields-fieldname INTO lv_full_name SEPARATED BY '-'.
      APPEND INITIAL LINE TO lt_comp ASSIGNING <comp>.
      <comp>-name = wa_fields-fieldname.
      <comp>-type ?= cl_abap_datadescr=>describe_by_name( lv_full_name ).
    ENDLOOP.
    mr_str_type = cl_abap_structdescr=>create( lt_comp ).
    mr_tab_type = cl_abap_tabledescr=>create( mr_str_type ).
    CREATE DATA mr_data TYPE HANDLE mr_tab_type.
  ENDMETHOD.                    "generate_structure

  METHOD generate_fields_string.
    DATA: wa_fields TYPE zfiaa_dtc_fields.
    LOOP AT mt_fields INTO wa_fields.
      CONCATENATE r_fields4select ' ' wa_fields-tabname '~' wa_fields-fieldname INTO r_fields4select.
    ENDLOOP.
  ENDMETHOD.                    "generate_fields_string