SAP ABAP 查询接口参数数据结构的报表
查询接口RFC函数中使用的字段报表,发现透明表也可以查询:*&---------------------------------------------------------------------**&ReportZJAMES009*&--------------------------------------------------------------------
查询接口RFC函数中使用的字段报表,发现透明表也可以查询:


*&---------------------------------------------------------------------*
*& Report ZJAMES009
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZJAMES009.
TABLES DD03L.
DATA GS_DD03L LIKE DD03L.
DATA GT_DD03L LIKE TABLE OF DD03L.
SELECT-OPTIONS R_NAME FOR DD03L-TABNAME. "结构名称
START-OF-SELECTION.
PERFORM GET_DATA.
END-OF-SELECTION.
PERFORM SHOW_DATA.
FORM GET_DATA .
SELECT *
INTO CORRESPONDING FIELDS OF TABLE GT_DD03L
FROM DD03L
WHERE TABNAME IN R_NAME.
LOOP AT GT_DD03L INTO GS_DD03L.
SELECT SINGLE DDTEXT
INTO GS_DD03L-PRECFIELD
FROM DD03T
WHERE TABNAME = GS_DD03L-TABNAME
AND FIELDNAME = GS_DD03L-FIELDNAME.
IF SY-SUBRC = 0.
MODIFY GT_DD03L FROM GS_DD03L INDEX SY-TABIX.
ENDIF.
SELECT SINGLE DDTEXT
INTO GS_DD03L-PRECFIELD
FROM DD03M
WHERE TABNAME = GS_DD03L-TABNAME
AND FIELDNAME = GS_DD03L-FIELDNAME
AND DDLANGUAGE = '1'.
IF SY-SUBRC = 0.
MODIFY GT_DD03L FROM GS_DD03L INDEX SY-TABIX.
ENDIF.
ENDLOOP.
ENDFORM.
FORM SHOW_DATA .
DATA: WS_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
WS_FIELDGROUPS_TAB TYPE SLIS_T_SP_GROUP_ALV,
WS_LAYOUT TYPE SLIS_LAYOUT_ALV,
LS_SORTFIELDS TYPE SLIS_SORTINFO_ALV ,
LT_SORTFIELDS TYPE TABLE OF SLIS_SORTINFO_ALV ,
WS_EVENTS TYPE SLIS_T_EVENT.
DATA: NN TYPE I VALUE 0.
DATA: TITLE TYPE LVC_TITLE.
DATA: COLOR TYPE SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.
*
DEFINE HOUT.
NN = NN + 1.
WS_FIELDCAT-COL_POS = NN.
WS_FIELDCAT-TABNAME = 'GT_DD03L'.
WS_FIELDCAT-KEY = &1.
WS_FIELDCAT-FIELDNAME = &2.
WS_FIELDCAT-SELTEXT_M = &3.
WS_FIELDCAT-CFIELDNAME = &4.
WS_FIELDCAT-DATATYPE = &5.
WS_FIELDCAT-REF_TABNAME = &6.
WS_FIELDCAT-REF_FIELDNAME = &7.
WS_FIELDCAT-DO_SUM = &8.
WS_FIELDCAT-HOTSPOT = &9.
APPEND WS_FIELDCAT.
CLEAR WS_FIELDCAT.
END-OF-DEFINITION.
HOUT:
'' 'POSITION' ' 位置' '' '' '' '' '' '',
'' 'TABNAME' '接口参数名' '' '' '' '' '' '',
'' 'FIELDNAME' ' 字段名' '' '' '' '' '' '',
'' 'PRECFIELD' ' 文本' '' '' '' '' '' '',
'' 'DATATYPE' ' 数据类型' '' '' '' '' '' '',
'' 'LENG' ' 长度 ' '' '' '' '' '' '',
'' 'DECIMALS' '小数位 ' '' '' '' '' '' '',
'' 'ROLLNAME' ' SAP数据元素 ' '' '' '' '' '' ''.
WS_LAYOUT-ZEBRA = 'X'.
WS_LAYOUT-GET_SELINFOS = 'X'.
WS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
WS_LAYOUT-DETAIL_POPUP = 'X'.
*******排序
LS_SORTFIELDS-FIELDNAME = 'POSITION'.
LS_SORTFIELDS-DOWN = ''.
APPEND LS_SORTFIELDS TO LT_SORTFIELDS.
CLEAR LS_SORTFIELDS.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
" I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = WS_LAYOUT
IT_FIELDCAT = WS_FIELDCAT[]
IT_SPECIAL_GROUPS = WS_FIELDGROUPS_TAB[]
IT_SORT = LT_SORTFIELDS
IT_EVENTS = WS_EVENTS[]
I_GRID_TITLE = TITLE
I_DEFAULT = 'X'
I_SAVE = 'A'
TABLES
T_OUTTAB = GT_DD03L
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM. " OUTPUT_DATA
魔乐社区(Modelers.cn) 是一个中立、公益的人工智能社区,提供人工智能工具、模型、数据的托管、展示与应用协同服务,为人工智能开发及爱好者搭建开放的学习交流平台。社区通过理事会方式运作,由全产业链共同建设、共同运营、共同享有,推动国产AI生态繁荣发展。
更多推荐



所有评论(0)