RTTS可以做到这一点。

示例代码（不干净且未处理的异常！）

数据：lo_structdescr_in类型参考cl_abap_structdescr，
       lo_structdescr_out类型参考cl_abap_structdescr，
       lo_datadescr类型参考cl_abap_datadescr，
       lt_components TYPE cl_abap_structdescr => component_table，
       lref_tab TYPE REF TO数据。

 类型：开始于lty_test_s，
          t100 TYPE t100，"结构
          test_field1 TYPE字符串，
        结束于lty_test_s。

 * -------------------------------------------------  ------------------- *

 "获取原始组件
 lo_structdescr_in？= cl_abap_structdescr => describe_by_name（'LTY_TEST_S'）。
 lt_components = lo_structdescr_in-> get_components（）。

 "更新组件
 lo_datadescr？= cl_abap_elemdescr => describe_by_name（'BSID'）。
 附加值cl_abap_structdescr => component（name ='BSID'
                                              类型= lo_datadescr）至lt_components。

 "创建新的动态结构和新表
 lo_structdescr_out？= cl_abap_structdescr => create（p_components = lt_components）。
 DATA（lo_tabdesc）= cl_abap_tabledescr => create（lo_structdescr_out）。
 创建数据lref_tab类型句柄lo_tabdesc。
 ASSIGN lref_tab-> *到FIELD-SYMBOL（）。