当前位置:网站首页>SAP 自开发记录用户登录日志等信息
SAP 自开发记录用户登录日志等信息
2022-07-05 12:32:00 【rogerix4】
1. 增强点
- 增强对象:SMOD/CMOD->SUSR0001 登陆到 SAP 系统后的用户出口
- 增强出口:EXIT_SAPLSUSF_001
2. 增强实施
- 日志记录表
- 增强代码
*&---------------------------------------------------------------------* *& 包含 ZXUSRU01 *&---------------------------------------------------------------------* DATA: ls_zbc_login_info TYPE zbc_login_info, "ref USR041 l_opcode_usr_attr(1) TYPE x VALUE 5, l_sysno(2), l_platform TYPE i. "generate GUID CALL FUNCTION 'RS_DME_MG_GENERATE_GUID' IMPORTING e_guid_32 = ls_zbc_login_info-zguid. "UNAME ls_zbc_login_info-bname = sy-uname. "Terminal ID CALL 'ThUsrInfo' ID 'OPCODE' FIELD l_opcode_usr_attr ID 'TID' FIELD ls_zbc_login_info-termid. "Terminal CALL FUNCTION 'TERMINAL_ID_GET' EXPORTING username = sy-uname IMPORTING terminal = ls_zbc_login_info-terminal EXCEPTIONS multiple_terminal_id = 1 no_terminal_found = 2 OTHERS = 3. "Plateform CALL METHOD cl_gui_frontend_services=>get_platform RECEIVING platform = l_platform. CASE l_platform. WHEN 1. ls_zbc_login_info-zplat = 'PLATFORM_MAC'. WHEN 2. ls_zbc_login_info-zplat = 'PLATFORM_NT40'. WHEN 3. ls_zbc_login_info-zplat = 'PLATFORM_WINDOWS95'. WHEN 4. ls_zbc_login_info-zplat = 'PLATFORM_WINDOWS98'. WHEN 5. ls_zbc_login_info-zplat = 'PLATFORM_NT50'. WHEN 6. ls_zbc_login_info-zplat = 'PLATFORM_OS2'. WHEN 7. ls_zbc_login_info-zplat = 'PLATFORM_LINUX'. WHEN 8. ls_zbc_login_info-zplat = 'PLATFORM_HPUX'. WHEN 9. ls_zbc_login_info-zplat = 'PLATFORM_TRU64'. WHEN 10. ls_zbc_login_info-zplat = 'PLATFORM_AIX'. WHEN 11. ls_zbc_login_info-zplat = 'PLATFORM_SOLARIS'. WHEN 12. ls_zbc_login_info-zplat = 'PLATFORM_MACOSX'. WHEN 13. ls_zbc_login_info-zplat = 'PLATFORM_WINDOWSXP'. WHEN 14. ls_zbc_login_info-zplat = 'PLATFORM_WINDOWS7/8/10'. WHEN OTHERS. ls_zbc_login_info-zplat = 'PLATFORM_UNKNOWN'. ENDCASE. "server CALL 'C_GET_SYSTEM_NUMBER' ID 'SYSTEM' FIELD l_sysno. ls_zbc_login_info-server = sy-host && '_' && sy-sysid && '_' && l_sysno. "language ls_zbc_login_info-sprache = sy-langu. "logon date ls_zbc_login_info-logon_date = sy-datum. "logon time ls_zbc_login_info-logon_time = sy-uzeit. INSERT zbc_login_info FROM ls_zbc_login_info.
3. 日志
边栏推荐
- Simple production of wechat applet cloud development authorization login
- II. Data type
- How does MySQL execute an SQL statement?
- Anaconda creates a virtual environment and installs pytorch
- MySQL function
- Solve the problem of cache and database double write data consistency
- IPv6与IPv4的区别 网信办等三部推进IPv6规模部署
- MySQL regular expression
- POJ-2499 Binary Tree
- MySQL storage engine
猜你喜欢
Ecplise development environment configuration and simple web project construction
[figure neural network] GNN from entry to mastery
ZABBIX customized monitoring disk IO performance
Knowledge representation (KR)
Keras implements verification code identification
Add a new cloud disk to Huawei virtual machine
Constructing expression binary tree with prefix expression
Simple production of wechat applet cloud development authorization login
Resnet18 actual battle Baoke dream spirit
About cache exceptions: solutions for cache avalanche, breakdown, and penetration
随机推荐
Why do you always fail in automated tests?
Storage Basics
One article tells the latest and complete learning materials of flutter
End to end neural network
Seven polymorphisms
How can beginners learn flutter efficiently?
Understanding the architecture type of mobile CPU
Get the variable address of structure member in C language
Pytoch loads the initialization V3 pre training model and reports an error
Add a new cloud disk to Huawei virtual machine
Why learn harmonyos and how to get started quickly?
ZABBIX ODBC database monitoring
Course design of compilation principle --- formula calculator (a simple calculator with interface developed based on QT)
Take you hand in hand to develop a service monitoring component
Correct opening method of redis distributed lock
MySQL splits strings for conditional queries
MySQL view
Implementing Yang Hui triangle with cyclic queue C language
PXE startup configuration and principle
什么是数字化存在?数字化转型要先从数字化存在开始