SAP abap如何得到数据库表字段信息及内表字段名
一、得到数据库字段信息 １、DDIF_FIELDINFO_GET 示例代码如下：
代码语言：javascript复制DATA: it_tab TYPE TABLE OF dfies WITH HEADER LINE.
PARAMETERS p_table TYPE ddobjname OBLIGATORY.
CCALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
tabname = p_table
langu = sy-langu
TABLES
dfies_tab = it_tab
EXCEPTIONS
not_found = 1
internal_error = 2
OTHERS = 3.２、DDIF_TABL_GET 这个函数得到的字段信息会比上面一个函数得到字段信息多，字段信息更全，比如该字段是否是表的关键字段等信息 示例代码如下：
代码语言：javascript复制DATA: it_fields TYPE STANDARD TABLE OF dd03p .
PARAMETERS p_table TYPE ddobjname OBLIGATORY.
CALL FUNCTION 'DDIF_TABL_GET'
EXPORTING
name = p_table
langu = sy-langu
TABLES
dd03p_tab = it_fields
EXCEPTIONS
illegal_input = 1
OTHERS = 2.
3、一般有关数据表的信息以及数据表的字段信息都有专门的数据库表存储的，用SE11去搜索dd*，会出来很多表，比如dd03vv等等。
二、得到内表字段名 采用系统标准method，示例代码如下：
代码语言：javascript复制TYPES:BEGIN OF typ_mara,
matnr TYPE matnr,
meins TYPE meins,
maktx TYPE maktx,
END OF typ_mara.
* 保存内表的字段名称
TYPES:BEGIN OF typ_field,
fieldnm TYPE txt30,
END OF typ_field.
DATA:gt_mara TYPE TABLE OF typ_mara WITH HEADER LINE.
DATA:gt_field TYPE TABLE OF typ_field WITH HEADER LINE.
DATA:cl_descr TYPE REF TO cl_abap_structdescr.
FIELD-SYMBOLS:<fs_comp> TYPE abap_compdescr.
FIELD-SYMBOLS <fs_name> TYPE ANY.
cl_descr ?= cl_abap_typedescr=>describe_by_data( gt_mara ).
LOOP AT cl_descr->components ASSIGNING <fs_comp>.
WRITE: / <fs_comp>-name, "字段名称
<fs_comp>-type_kind, "字段类型
<fs_comp>-length, "字段长度
<fs_comp>-decimals. "字段小数位
APPEND <fs_comp>-name TO gt_field.
ENDLOOP.
三、动态表-获取动态字段-得到动态内表-显示 示例代码如下：
代码语言：javascript复制PARAMETERS p_name TYPE tabname. "动态表
DATA: dyn_table TYPE REF TO data.
DATA: dyn_wa TYPE REF TO data.
FIELD-SYMBOLS: <dyn_table> TYPE table,
<dyn_wa> TYPE ANY.
*创建动态表结构
CREATE DATA dyn_table TYPE TABLE OF (p_name).
*创建动态内表
ASSIGN dyn_table->* TO <dyn_table>.
*创建动态工作区结构
CREATE DATA dyn_wa LIKE LINE OF <dyn_table>.
*创建动态工作区
ASSIGN dyn_wa->* TO <dyn_wa>.
*从动态表中取数到动态内表中
SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table>
FROM (p_name) UP TO 100 ROWS .
*对取出数据进行处理
LOOP AT <dyn_table> assigning <dyn_wa>.
"内表数据处理
ENDLOOP.
*显示内表中的数据
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_structure_name = p_name
TABLES
t_outtab = <dyn_table>
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
