ABAP-記錄SAP用戶登錄IP等信息日志

SAP標准也有日志，不過要開審計才能看，或者通過STAD，本文是做了個增強來記錄日志

增強點，SMOD->SUSR0001，日志表參考USR41，因為USR41會記錄目前用戶登陸時的IP信息，所以稍作改動就能直接作為日志表

 

 

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.