abap如何得到数据库表字段信息及内表字段名

一、得到数据库字段信息

　１、DDIF_FIELDINFO_GET

　示例代码如下：

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

　这个函数得到的字段信息会比上面一个函数得到字段信息多，字段信息更全，比如该字段是否是表的关键字段等信息

　示例代码如下：

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，示例代码如下：

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.
           

三、动态表-获取动态字段-得到动态内表-显示

　示例代码如下：

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.