SAP 简单记录用户登录信息

SAPmatinal

于 2023-05-04 11:12:52 发布

阅读量1.6k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： ABAP技术文章标签： java 开发语言人工智能数据库经验分享

本文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/130483244

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

文章介绍了如何在SAP系统中通过增强SMOD->SUSR0001来记录日志，使用USR41表获取登录IP信息，并创建新的日志表ZBST0001。通过函数调用和生成GUID来实现日志记录的详细信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

就做个简单记录

SAP标准也有日志，不过要开审计才能看，或者通过STAD，本文是做了个增强来记录日志

增强点，SMOD->SUSR0001，日志表参考USR41，因为USR41会记录目前用户登陆时的IP信息，所以稍作改动就能直接作为日志表

增强对象：SMOD/CMOD->SUSR0001 登陆到 SAP 系统后的用户出口
增强出口：EXIT_SAPLSUSF_001

DATA:
  LT_USR41    TYPE TABLE OF USR41,
  LS_ZBST0001 TYPE ZBST0001,
  LT_ZBST0001 TYPE TABLE OF ZBST0001.
DATA:
  LV_GID                TYPE GUID_32,            "GUID
  LV_OPCODE_USR_ATTR(1) TYPE X VALUE 5,
  LV_TID                TYPE USR41-TERMID.

CALL 'ThUsrInfo' ID 'OPCODE' FIELD LV_OPCODE_USR_ATTR
      ID 'TID' FIELD LV_TID.                              "#EC CI_CCALL

SELECT *
  FROM USR41
  INTO CORRESPONDING FIELDS OF TABLE LT_ZBST0001
 WHERE BNAME      = SY-UNAME
   AND TERMID     = LV_TID
   AND LOGON_DATE = SY-DATUM
   AND LOGON_TIME = SY-UZEIT.

IF SY-SUBRC = 0.
  CALL FUNCTION 'RS_DME_MG_GENERATE_GUID'
    IMPORTING
      E_GUID_32 = LV_GID.

  LS_ZBST0001-ZGUID = LV_GID.
  MODIFY LT_ZBST0001 FROM LS_ZBST0001 TRANSPORTING ZGUID
    WHERE ZGUID IS INITIAL.


  MODIFY ZBST0001 FROM TABLE LT_ZBST0001.
ENDIF.