ZTG-事务码使用日志报表

场景;
多维度统计，事务码，账号使用情况

开发步骤：
1.创建自荐表记录

2.增强埋点

SE37->AUTH_CHECK_TCODE

"事务码开关
PERFORM zauth_check_tcode USING tcode.

FORM zauth_check_tcode USING tcode TYPE sy-tcode.

"TCODE 日志记录
DATA:ls_ztcode_log TYPE ztcode_log.

ls_ztcode_log-tcode = tcode."事务代码

SELECT SINGLE
ttext
FROM tstcv
INTO ls_ztcode_log-ttext "事务代码描述
WHERE sprsl = ‘1’
AND tcode = tcode.

ls_ztcode_log-uname = sy-uname."用户名

SELECT SINGLE
name_textc
FROM user_addr
INTO ls_ztcode_log-name_text "完整的人员名称
WHERE bname = sy-uname.

“获取二级用户
GET PARAMETER ID ‘ZUSERID’ FIELD ls_ztcode_log-zsejizh.” 二级帐号ID

"获取二级用户名称
SELECT SINGLE zname "用户姓名
INTO ls_ztcode_log-zuserid
FROM zuserinfo
WHERE zuserid = ls_ztcode_log-zsejizh.

ls_ztcode_log-zcjrq = sy-datum."创建日期
ls_ztcode_log-zcjsj = sy-uzeit."创建时间

MODIFY ztcode_log FROM ls_ztcode_log.

ENDFORM.

3.报表程序
REPORT ztg.

---

• 事务代码： ZTG
• 程序名称： ZTG
• 程序目的： ZTG-事务码使用日志
• 开发人员：
  *(修改日志)--------------------------------------------------------
• 日志号 修改人 修改时间 修改说明 传输号码

• ---

• 001 创建

---

======================================================================

• INCLUDE
  ======================================================================
  INCLUDE ztg_top.
  INCLUDE ztg_f01.

======================================================================

• AT SELECTION-SCREEN.
  ======================================================================
  AT SELECTION-SCREEN OUTPUT.

======================================================================

• INITIALIZATION
  ======================================================================
  INITIALIZATION.

======================================================================

• START-OF-SELECTION.
  ============================================