SAP Transaction Code Usage History: SWNC_COLLECTOR_GET_AGGREGATES Report Generator

REPORT z_tcode_usage_swnc.

* Transaction and report usage from the ST03N workload collector.
* Aggregates by ENTRY_ID (transaction code or report) and user (ACCOUNT).

TYPES: BEGIN OF ty_user,
         entry_id TYPE swncaggusertcode-entry_id,
         account  TYPE swncaggusertcode-account,
         count    TYPE p LENGTH 16 DECIMALS 0,
         respti   TYPE p LENGTH 16 DECIMALS 0,
       END OF ty_user,
       BEGIN OF ty_tcode,
         entry_id TYPE swncaggusertcode-entry_id,
         count    TYPE p LENGTH 16 DECIMALS 0,
         respti   TYPE p LENGTH 16 DECIMALS 0,
         users    TYPE i,
       END OF ty_tcode.

DATA: lt_raw   TYPE STANDARD TABLE OF swncaggusertcode,
      ls_raw   TYPE swncaggusertcode,
      lt_user  TYPE STANDARD TABLE OF ty_user,
      ls_user  TYPE ty_user,
      lt_tcode TYPE STANDARD TABLE OF ty_tcode,
      ls_tcode TYPE ty_tcode,
      lv_start TYPE d VALUE '20260101',
      lv_c8    TYPE c LENGTH 8,
      lv_year  TYPE n LENGTH 4,
      lv_month TYPE n LENGTH 2,
      lv_tcode TYPE tstct-tcode,
      lv_text  TYPE tstct-ttext,
      lv_avg   TYPE p LENGTH 16 DECIMALS 1,
      lv_n     TYPE i.

START-OF-SELECTION.

  DO 9 TIMES.
    REFRESH lt_raw.
    CALL FUNCTION 'SWNC_COLLECTOR_GET_AGGREGATES'
      EXPORTING
        component     = 'TOTAL'
        periodtype    = 'M'
        periodstrt    = lv_start
      TABLES
        usertcode     = lt_raw
      EXCEPTIONS
        no_data_found = 1
        OTHERS        = 2.
    IF sy-subrc = 0.
      LOOP AT lt_raw INTO ls_raw.
        IF ls_raw-entry_id CP '*'.
          ls_user-entry_id = ls_raw-entry_id.
          ls_user-account  = ls_raw-account.
          ls_user-count    = ls_raw-count.
          ls_user-respti   = ls_raw-respti.
          COLLECT ls_user INTO lt_user.
        ENDIF.
      ENDLOOP.
    ELSE.
      WRITE: / 'No workload data for period starting', lv_start.
    ENDIF.

* Next period: D = next day, W = next week, M = first of next month
    CASE 'M'.
      WHEN 'D'.
        lv_start = lv_start + 1.
      WHEN 'W'.
        lv_start = lv_start + 7.
      WHEN OTHERS.
        lv_year  = lv_start(4).
        lv_month = lv_start+4(2).
        IF lv_month = 12.
          lv_month = 1.
          lv_year  = lv_year + 1.
        ELSE.
          lv_month = lv_month + 1.
        ENDIF.
        CONCATENATE lv_year lv_month '01' INTO lv_c8.
        lv_start = lv_c8.
    ENDCASE.
  ENDDO.

* One row per transaction: total steps, total response time, distinct users
  LOOP AT lt_user INTO ls_user.
    ls_tcode-entry_id = ls_user-entry_id.
    ls_tcode-count    = ls_user-count.
    ls_tcode-respti   = ls_user-respti.
    ls_tcode-users    = 1.
    COLLECT ls_tcode INTO lt_tcode.
  ENDLOOP.

  SORT lt_tcode BY count DESCENDING.

  WRITE: / 'Entry (tcode/report)', 42 'Steps', 62 'Users', 74 'Avg resp', 90 'Text'.
  ULINE.
  LOOP AT lt_tcode INTO ls_tcode.
    lv_n = lv_n + 1.
    IF lv_n > 100.
      EXIT.
    ENDIF.
    CLEAR lv_text.
    lv_tcode = ls_tcode-entry_id.
    SELECT SINGLE ttext FROM tstct INTO lv_text
      WHERE sprsl = sy-langu
        AND tcode = lv_tcode.
    IF ls_tcode-count > 0.
      lv_avg = ls_tcode-respti / ls_tcode-count.
    ELSE.
      lv_avg = 0.
    ENDIF.
    WRITE: / ls_tcode-entry_id(40), 42 ls_tcode-count, 62 ls_tcode-users,
             74 lv_avg, 90 lv_text.
  ENDLOOP.