◆◆0

[代码]列出abaper开发历史记录

石头 3月 24, 2017 Report 4,320 views 0

这段代码能够显示对于某一abap开发，在某一时间段之内的开发记录:

代码：

REPORT ztest_dev_history.

DATA:g_date TYPE vbak-aedat.
CONSTANTS: c_name TYPE trdir-name VALUE 'Name',
           c_date TYPE trdir-udat VALUE 'Date'.

PARAMETERS: p_name TYPE usr02-bname OBLIGATORY.
SELECT-OPTIONS:s_perid FOR g_date.

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 = p_name
     AND udat IN s_perid.

  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.