1. 程式人生 > >如何查看某個用戶指定時間段的ABAP開發記錄

如何查看某個用戶指定時間段的ABAP開發記錄

ogr rep cimage nsa data- ade img load screen

輸入用戶名和想查詢的時間段:

技術分享圖片

執行得到結果。雙擊可查看具體代碼:

技術分享圖片

工具源代碼:


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.

要獲取更多Jerry的原創技術文章,請關註公眾號"汪子熙"或者掃描下面二維碼:

技術分享圖片

技術分享圖片

如何查看某個用戶指定時間段的ABAP開發記錄