查询接口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 .


  DATAWS_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.
  DATANN TYPE I VALUE 0.
  DATATITLE TYPE LVC_TITLE.
  DATACOLOR 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

Logo

魔乐社区(Modelers.cn) 是一个中立、公益的人工智能社区,提供人工智能工具、模型、数据的托管、展示与应用协同服务,为人工智能开发及爱好者搭建开放的学习交流平台。社区通过理事会方式运作,由全产业链共同建设、共同运营、共同享有,推动国产AI生态繁荣发展。

更多推荐