ABAP数据库表的元数据
时间:2022-07-23
本文章向大家介绍ABAP数据库表的元数据,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
For project reason I need to fill some excel.
The content of each column comes from content in SE11:
In order to avoid such boring task, I write a small ABAP class to automate it.
This class will first read corresponding database table name based on CRM settype id, then call function module DDIF_NAMETAB_GET to get all metadata of each table field, and then send the data to clipboard.
Once done, put the focus on the first cell of content row, press Ctrl+V, all the data from clipboard will be copied into excel automatically.
The source code could be found below:
class ZCL_EXCEL_TOOL definition
public
final
create public .
public section.
methods GET_SETTYPE_FIELDS
importing
!IV_SETTYPE_ID type COMT_FRGTYPE_ID default 'COMM_PR_SHTEXT' .
PROTECTED SECTION.
private section.
types:
BEGIN OF ty_column,
a_index TYPE char3,
b_table TYPE dd03l-tabname,
c_fieldname TYPE dd03l-fieldname,
d_element TYPE dd03l-rollname,
e_datatype TYPE x031l-dtyp,
f_length TYPE char4,
g_description TYPE char40,
END OF ty_column .
types:
tt_column TYPE STANDARD TABLE OF ty_column WITH KEY a_index b_table c_fieldname .
types:
BEGIN OF ty_clipdata,
data TYPE c LENGTH 500,
END OF ty_clipdata .
types:
tt_formatted TYPE STANDARD TABLE OF ty_clipdata .
data MT_COLUMN type TT_COLUMN .
data MT_FORMATTED type TT_FORMATTED .
constants C_TAB type CHAR1 value CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB ##NO_TEXT.
methods CONVERT .
methods GET_FIELD_LABEL
importing
!IV_TAB_NAME type DDOBJNAME
!IV_FIELD_NAME type DFIES-FIELDNAME
returning
value(RV_LABEL) type STRING .
ENDCLASS.
CLASS ZCL_EXCEL_TOOL IMPLEMENTATION.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_EXCEL_TOOL->CONVERT
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD convert.
LOOP AT mt_column ASSIGNING FIELD-SYMBOL(<raw>).
APPEND INITIAL LINE TO mt_formatted ASSIGNING FIELD-SYMBOL(<converted>).
CONCATENATE <raw>-a_index <raw>-b_table <raw>-c_fieldname <raw>-d_element <raw>-e_datatype
<raw>-f_length <raw>-g_description INTO <converted> SEPARATED BY c_tab.
ENDLOOP.
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_EXCEL_TOOL->GET_FIELD_LABEL
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_TAB_NAME TYPE DDOBJNAME
* | [--->] IV_FIELD_NAME TYPE DFIES-FIELDNAME
* | [<-()] RV_LABEL TYPE STRING
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD get_field_label.
CALL FUNCTION 'DDIF_FIELDLABEL_GET'
EXPORTING
tabname = iv_tab_name
fieldname = iv_field_name
langu = sy-langu
IMPORTING
label = rv_label.
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_EXCEL_TOOL->GET_SETTYPE_FIELDS
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SETTYPE_ID TYPE COMT_FRGTYPE_ID (default ='COMM_PR_SHTEXT')
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD get_settype_fields.
DATA: lv_tab TYPE comc_settype-frgtype_tab,
lv_ret TYPE int4,
lt_list TYPE STANDARD TABLE OF x031l.
SELECT SINGLE frgtype_tab INTO lv_tab FROM comc_settype WHERE frgtype_id = iv_settype_id.
IF sy-subrc <> 0.
WRITE: / 'no database table maintained for settype: ', iv_settype_id.
RETURN.
ENDIF.
CALL FUNCTION 'DDIF_NAMETAB_GET'
EXPORTING
tabname = CONV ddobjname( lv_tab )
status = 'A'
TABLES
x031l_tab = lt_list
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
WRITE:/ 'table metadata parse error'.
RETURN.
ENDIF.
LOOP AT lt_list ASSIGNING FIELD-SYMBOL(<list>).
APPEND INITIAL LINE TO mt_column ASSIGNING FIELD-SYMBOL(<insert>).
<insert>-a_index = sy-tabix.
<insert>-b_table = lv_tab.
<insert>-c_fieldname = <list>-fieldname.
<insert>-d_element = <list>-rollname.
<insert>-e_datatype = <list>-dtyp.
<insert>-f_length = CONV i( <list>-exlength ). "cast CL_ABAP_ELEMDESCR( CL_ABAP_ELEMDESCR=>describe_by_name( <list>-rollname ) )->output_length.
<insert>-g_description = get_field_label( EXPORTING iv_tab_name = CONV #( lv_tab ) iv_field_name = <list>-fieldname ).
ENDLOOP.
convert( ).
cl_gui_frontend_services=>clipboard_export(
EXPORTING
no_auth_check = abap_true
IMPORTING
data = mt_formatted
CHANGING
rc = lv_ret
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
).
ENDMETHOD.
ENDCLASS.
- Oracle 学习笔记
- [数据库基础]——索引详解
- [数据库基础]——快速浏览日期时间转换
- 【死磕Java并发】—- 深入分析CAS
- [SQLServer大对象]——FileTable从文件系统迁移文件
- [机器学习]-[数据预处理]-中心化 缩放 KNN(二)
- [数据清洗]-看上去一样的数字
- [数据清洗]- Pandas 清洗“脏”数据(三)
- [数据清洗]- Pandas 清洗“脏”数据(二)
- [数据清洗]-Pandas 清洗“脏”数据(一)
- [数据清洗]-混乱的邮编数据
- 10行代码,Python实现爬取淘宝/天猫评论
- 4.请求安全-- 结合使用的安全优势总结
- TensorFlow强化学习入门(4)——深度Q网络(DQN)及其扩展
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法