• 按月统计tcode和report使用次数的工具


    执行report,输入要查询的日期和user,

    工具会按照使用次数从高到低列出输入日期所在的月份内所有该user 曾经使用过的tcode 和report list:

    REPORT zusertcode.
    PARAMETER: month TYPE dats DEFAULT sy-datum OBLIGATORY,
               user type usr02-bname OBLIGATORY DEFAULT sy-uname.
    TYPES: BEGIN OF zusertcode,
             operation type char30,
             type type char10,
             count  TYPE swncshcnt,
           END OF zusertcode.
    TYPES: tt_zusertcode TYPE STANDARD TABLE OF zusertcode WITH KEY operation type.
    DATA: lt_usertcode  TYPE swnc_t_aggusertcode,
          wa_usertcode TYPE swncaggusertcode,
          wa           TYPE zusertcode,
          t_ut         TYPE tt_zusertcode,
          ls_result    TYPE zusertcode,
          lt_result     TYPE tt_zusertcode.
    CONSTANTS: cv_tcode TYPE char30 VALUE 'Tcode',
               cv_report TYPE char30 VALUE 'Report',
               cv_count TYPE char5 value 'Count'.
    START-OF-SELECTION.
    * Set date to the first day of the month
      "month+6(2) = '01'.
      CALL FUNCTION 'SWNC_COLLECTOR_GET_AGGREGATES'
        EXPORTING
          component     = 'TOTAL'
          periodtype    = 'M'
          periodstrt    = month
        TABLES
          usertcode     = lt_usertcode
        EXCEPTIONS
          no_data_found = 1
          OTHERS        = 2.
      DELETE lt_usertcode WHERE tasktype <> '01'.
      LOOP AT lt_usertcode ASSIGNING FIELD-SYMBOL(<user>) WHERE account = user.
         CLEAR: ls_result.
         ls_result-operation = <user>-entry_id.
         ls_result-type = <user>-entry_id+72.
         ls_result-count = <user>-count.
         COLLECT ls_result INTO lt_result.
      ENDLOOP.
      SORT lt_result BY count DESCENDING.
      WRITE:  10 cv_tcode, 20 cv_report, 60 cv_count COLOR COL_NEGATIVE.
      LOOP AT lt_result ASSIGNING FIELD-SYMBOL(<result>).
          IF <result>-type = 'T'.
            WRITE: / <result>-operation COLOR COL_TOTAL UNDER cv_tcode,
                     <result>-count COLOR COL_POSITIVE UNDER cv_count.
          ELSE.
            WRITE: / <result>-operation COLOR COL_GROUP UNDER cv_report,
                     <result>-count COLOR COL_POSITIVE UNDER cv_count.
          ENDIF.
      ENDLOOP.
  • 相关阅读:
    Javabean(MAX)
    电梯时间计算
    FT232R USB UART驱动安装
    java多态
    php文件上传代码
    $_FILES ERROR
    17
    php伪静态
    我的博客开通了!
    【省选划水记】我确实是在划水。
  • 原文地址:https://www.cnblogs.com/goodsmith/p/4874052.html
Copyright © 2020-2023  润新知