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.