输入用户名和想查询的时间段：

执行得到结果。双击可查看具体代码：

工具源代码：

REPORT tool_dev_history.PARAMETERS: name TYPE usr02-bname OBLIGATORY,            fro  TYPE sy-datum OBLIGATORY DEFAULT sy-datum,            to_  TYPE sy-datum OBLIGATORY DEFAULT sy-datum.CONSTANTS: c_name TYPE trdir-name VALUE 'Name',           c_date TYPE trdir-udat VALUE 'Date'.AT SELECTION-SCREEN.  IF fro > to_.    WRITE: / 'Invalid date period.' COLOR COL_NEGATIVE.    RETURN.  ENDIF.START-OF-SELECTION.  DATA: lt_record TYPE STANDARD TABLE OF trdir.  SELECT name udat INTO CORRESPONDING FIELDS OF TABLE lt_record FROM trdir     WHERE unam = name AND udat BETWEEN fro AND to_.  IF sy-subrc <> 0.    WRITE: / 'No record found at given date period.' COLOR COL_NEGATIVE.    RETURN.  ENDIF.  SORT lt_record BY udat DESCENDING.  WRITE:  10 c_name, 80 c_date.  LOOP AT lt_record INTO DATA(ls_data).    WRITE: / ls_data-name UNDER c_name COLOR COL_POSITIVE, ls_data-udat UNDER c_date COLOR COL_TOTAL.    HIDE ls_data-name.  ENDLOOP.AT LINE-SELECTION.  DATA: bdcdata_tab  TYPE TABLE OF bdcdata,        opt          TYPE ctu_params,        bdcdata_line TYPE bdcdata.  bdcdata_line-program = 'SAPLWBABAP'.  bdcdata_line-dynpro = '0100'.  bdcdata_line-dynbegin = 'X'.  APPEND bdcdata_line TO bdcdata_tab.  CLEAR: bdcdata_line.  bdcdata_line-fnam = 'BDC_CURSOR'.  bdcdata_line-fval = 'RS38M-PROGRAMM'.  APPEND bdcdata_line TO bdcdata_tab.  CLEAR: bdcdata_line.  bdcdata_line-fnam = 'BDC_OKCODE'.  bdcdata_line-fval = '=SHOP'.  APPEND bdcdata_line TO bdcdata_tab.  CLEAR: bdcdata_line.  bdcdata_line-fnam = 'RS38M-PROGRAMM'.  bdcdata_line-fval = ls_data-name.  APPEND bdcdata_line TO bdcdata_tab.  opt-dismode = 'E'.  opt-defsize = 'X'.  CALL TRANSACTION 'SE38' USING bdcdata_tab  OPTIONS FROM opt.  CLEAR: bdcdata_tab.