SAP自开发报表：月操作次数统计源代码分享

*&---------------------------------------------------------------------*
*& Report  ZSDR_WORKLOAD
*&
*&---------------------------------------------------------------------*
*&  Statistic report and transaction consume
*&
*&---------------------------------------------------------------------*
REPORT ZBASIS001.

*----------------------------------------------------------------------*
*                     引用声明
*----------------------------------------------------------------------*
* Table Declaration
TABLES: V_USR_NAME,  TSTCP, TRDIRT, TSTCT,
        TADIR, TDEVC, DF14L, TSTC, TRDIR, TDEVCT ,USR02,USER_ADDRP.

*----------------------------------------------------------------------*
*                     变量声明
*----------------------------------------------------------------------*
* Global data
*DATA: t_output TYPE TABLE OF SWNCAGGUSERTCODE, "SWNCHITLIST,  ""Final output table

TYPES: BEGIN OF ZSWORKLOAD,
         MANDT       TYPE C LENGTH 3,          "集团
         PERIOD      TYPE N LENGTH 6,         "分析期间
         ZZDATUM     TYPE D,                  "日期
         ACCOUNT     TYPE USR21-BNAME,      "用户名称
         NMACCOUNT   TYPE C LENGTH 80,     "完整用户名称
         DEPARTMENT  TYPE ADCP-DEPARTMENT,  "部门
         FUNCTION    TYPE ADCP-FUNCTION,    "职能

         ZTCODE      TYPE C   LENGTH 20,      "TCODE
         DDTEXT      TYPE C LENGTH 80,        "报告标题
         TYPELEM     TYPE C LENGTH 1,        "报告标题
         ZLNCHT      TYPE C LENGTH 10,        "类别
         ZREPNM      TYPE C LENGTH 40,        "自定义字段
         ZDESREPNM   TYPE C LENGTH 70,        "程序名称
         DEVCLASS    TYPE C LENGTH 30,        "报告标题
         DESCLASS    TYPE C LENGTH 60,        "包
         COMPID      TYPE C   LENGTH 24,     "应用程序组件标识
         CNAM        TYPE C LENGTH 12,       "作者
         CDAT        TYPE D,                  "创建日期
         CNAMOD      TYPE C LENGTH 12,       "最后修改人
         CDATMOD     TYPE D,                "最后修改日期
         DESTASKTYPE TYPE C LENGTH 6,        "自定义字段
         ZCOUNTS     TYPE INT4,             "使用人数
         ZSTEPS      TYPE INT4,             "交互数
       END OF ZSWORKLOAD.
TYPES:BEGIN OF TY_USER,
        NAME_LAST  TYPE ADRP-NAME_LAST,        "姓
        NAME_FIRST TYPE ADRP-NAME_FIRST,       "名
        NAME       TYPE ADRP-NAME_FIRST,       "姓名
        BNAME      TYPE USR21-BNAME,          "登录名
        DEPARTMENT TYPE ADCP-DEPARTMENT,      "部门
        FUNCTION   TYPE ADCP-FUNCTION,        "职能
      END OF TY_USER.
DATA: WA_USER TYPE TY_USER,
      IT_USER TYPE TY_USER OCCURS 0 WITH HEADER LINE.
DATA: T_WORK    TYPE TABLE OF SWNCAGGUSERTCODE "SWNCHITLIST
                WITH HEADER LINE,            "Tabella temporanea
      T_DIRMONI TYPE TABLE OF SWNCMONIKEY