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.