SAP-ABAP-动态创建表结构类的使用

*&---------------------------------------------------------------------*
*& Report ZLQT_STRUCT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZLQT_STRUCT.

DATA:
  dref_i TYPE REF TO data,
  elem_type TYPE REF TO cl_abap_elemdescr.

"创建基本类型
elem_type ?= cl_abap_elemdescr=>get_i( ).

*创建变量对象
CREATE DATA dref_i TYPE HANDLE elem_type .

*引用动态创建的变量
FIELD-SYMBOLS <FS_CHAR> TYPE ANY.
IF dref_i IS BOUND.
  ASSIGN dref_i->* TO <FS_CHAR>.
ENDIF.


DATA:
dref_str TYPE REF TO data,
struct_type TYPE REF TO cl_abap_structdescr,
comp_tab TYPE cl_abap_structdescr=>component_table WITH HEADER LINE.

*动态创建结构类型
"结构类型(根据名称获取系统创建好的结构)
struct_type ?= cl_abap_typedescr=>describe_by_name( 'SFLIGHT' ).
"根据程序中定义的结构，创建结构类型
"struct_type ?= cl_abap_typedescr=>describe_by_data( 'SFLIGHT' ).
*获取该结构类型中，结构组件（字段）
comp_tab[] = struct_type->get_components( )."组成结构体的各个字段组件

"扩展结构字段
elem_type ?= cl_abap_elemdescr=>get_C( 10 ).
comp_tab-name = 'NAME'   ."新增成员的类型名称
comp_tab-type = elem_type."新增成员的类型对象
INSERT comp_tab INTO comp_tab INDEX 1.

"根据新的组件创建结构类型
struct_type = cl_abap_structdescr=>create( comp_tab[] ).
"根据结构类型，创建结构对象
CREATE DATA dref_str TYPE HANDLE struct_type.

*引用创建的动态构造
FIELD-SYMBOLS: <is_str> TYPE ANY.
IF dref_str IS BOUND.
  ASSIGN  dref_str->* TO <is_str>.
ENDIF.

DATA:
  dref_tab TYPE REF TO data,
  itab_type TYPE REF TO cl_abap_tabledescr,
  table_type TYPE REF TO cl_abap_tabledescr.

* 基于结构类型对象创建内表类型对象
itab_type = cl_abap_tabledescr=>create( struct_type ).

"使用内表类型对象来创建内表类型
CREATE DATA dref_tab TYPE HANDLE itab_type.

*引用构建的表
FIELD-SYMBOLS :<fs_itab> TYPE ANY TABLE.
IF dref_tab IS BOUND.
  ASSIGN dref_tab->* TO <fs_itab>.
ENDIF.

**给现有的内表动态的加一列
"获取当前内表的表结构对象
table_type ?= cl_abap_tabledescr=>describe_by_data( <FS_ITAB> ).
"获取当前表的结构
struct_type ?= table_type->get_table_line_type( ).
"获取结构组成字段
comp_tab[] = struct_type->get_components( ).
"追加字段
comp_tab-name = 'FIDESC'.
comp_tab-type = cl_abap_elemdescr=>get_c( 120 ).
INSERT comp_tab INTO comp_tab INDEX 2.
"重新创建结构
struct_type = cl_abap_structdescr=>create( comp_tab[] ).
"重新创建表结构
itab_type = cl_abap_tabledescr=>create( struct_type ).
"创建表对象
CREATE DATA dref_tab TYPE HANDLE itab_type.

仅用来暂记代码