ABAP 动态创建变量，构造，表

最新推荐文章于 2025-07-07 18:53:24 发布

随记随心

最新推荐文章于 2025-07-07 18:53:24 发布

阅读量3.9k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： ABAP

本文链接：https://blog.youkuaiyun.com/weixin_42396921/article/details/88105343

ABAP 专栏收录该内容

35 篇文章

订阅专栏

本文详细介绍了ABAP中动态创建不同类型的变量、结构和表的方法，包括使用cl_abap_elemdescr和cl_abap_structdescr类进行基本类型和结构类型的动态构建，以及如何基于这些类型创建表，并提供了通过系统字典表动态创建表的另一种方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

A.动态创建变量

创建不同的基本类型，引用不同的get_*(),具体查看类cl_abap_elemdescr，

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.

B，根据创建的基本类型，创建结构

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-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.

C.根据创建的结构类型创建表

DATA:
  dref_tab TYPE REF TO data,
  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.

D.根据系统字典表，动态创建表的另一方法

参照系统表创建内表
DATA:go_tab TYPE REF TO data.

FIELD-SYMBOLS:<fs_tab> TYPE table.

*  动态构建表
CREATE DATA go_tab TYPE TABLE OF ('EKKO').
IF go_tab IS BOUND.
  ASSIGN go_tab->* TO <fs_tab>.
  CHECK <fs_tab> IS ASSIGNED.
ELSE.
  EXIT.
ENDIF.

  
参照系统字段创建内表
  DATA:
    gw_fcat TYPE LVC_S_FCAT,
    gT_fcat TYPE STANDARD TABLE OF LVC_S_FCAT.

  gw_fcat-fieldname = 'ZFIELD'.
  gw_fcat-REF_TABLE = 'MARA'.
  gw_fcat-REF_FIELD = 'MATNR'.
  APPEND GW_FCAT TO GT_FCAT.

  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
*      I_STYLE_TABLE             =
      IT_FIELDCATALOG           =  GT_FCAT
*      I_LENGTH_IN_BYTE          =
    IMPORTING
      EP_TABLE                  = go_tab
*      E_STYLE_FNAME             =
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      others                    = 2
          .

  IF go_tab IS BOUND.
    ASSIGN go_tab->* TO <fs_tab>.
    CHECK <fs_tab> IS ASSIGNED.
  ELSE.
    EXIT.
  ENDIF.