SAP 自开发记录用户登录日志等信息

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. 日志