sap字段及描述底表_快速查询SAP表的字段以及描述
*快速查询SAP表的字段以及描述 table and field
TYPES: BEGIN OF ty_field,
position TYPE dd03l-position,
fieldname TYPE dd03l-fieldname,
rollname TYPE dd03l-rollname,
ddtext TYPE dd04t-ddtext,
END OF ty_field.
DATA: gt_03 TYPE TABLE OF ty_field,
gt_04 TYPE TABLE OF dd04t,
gs_03 TYPE ty_field,
gs_04 TYPE dd04t.
PARAMETERS: p_tab LIKE dd03l-tabname OBLIGATORY DEFAULT 'BKPF'.
SELECT position fieldname rollname INTO TABLE gt_03 FROM dd03l
WHERE tabname = p_tab.
IF gt_03 IS NOT INITIAL.
SELECT * INTO TABLE gt_04 FROM dd04t
FOR ALL ENTRIES IN gt_03
WHERE rollname = gt_03-rollname
AND ddlanguage IN ('1','E').
SORT gt_04 BY rollname ddlanguage.
ENDIF.
SORT gt_03 BY position.
WRITE: 'Table: ', p_tab.
LOOP AT gt_03 INTO gs_03.
READ TABLE gt_04 INTO gs_04 WITH KEY rollname = gs_03-rollname.
IF sy-subrc = 0.
WRITE:/ gs_03-position ,gs_03-fieldname, gs_04-ddtext, gs_04-scrtext_l.
ELSE.
WRITE:/ gs_03-position COLOR 6,gs_03-fieldname.
ENDIF.
CLEAR: gs_03,gs_04.
ENDLOOP.
文章来自于网络,如果侵犯了您的权益,请联系站长删除!