SAP 记录用户登录日志增强表

1. SE11 表- ZLOGONINFO

 

2、CMOD  ZLOGON

*----------------------------------------------------------------------
*   INCLUDE ZXUSRU01
*----------------------------------------------------------------------
************************************************
*  PROGRAM SAPMTZST                            *
*  CREATED BY TXB, 10/18/2000            *
*  LAST CHANGE BY TXB, 10/19/2000       *
*  PURPOSE: DEMONSTRATION                      *
************************************************
DATA HOSTADR LIKE UINFO-HOSTADR.
DATA HOSTADDR(8).
DATA TERM LIKE UINFO-TERM.
DATA XH_count TYPE I.
DATA: IPTXT(15),ITIMES TYPE I,ITIMES1 TYPE I,HX(2).
DATA: RESULT TYPE I,RESULTTXT(3).
TABLES ZLOGONINFO.
           CALL FUNCTION 'TH_USER_INFO'
             IMPORTING HOSTADDR = HOSTADR   "like UINFO-HOSTADR (hex)

                       TERMINAL = TERM.  "like UINFO-TERM
Select MAX( XH ) INTO XH_count FROM ZLOGONINFO.
XH_count = XH_count + 1.
ZLOGONINFO-XH = XH_COUNT.
ZLOGONINFO-MANDT     = SY-MANDT.
ZLOGONINFO-BNAME     = SY-UNAME.
HOSTADDR = HOSTADR.
DO 4 TIMES.
 HX = HOSTADDR+ITIMES1(2).
ITIMES = 0.
RESULT = 0.
DO 2 TIMES.
CASE HX+ITIMES(1).
 WHEN 'A'.
     IF ITIMES = 0.
        RESULT = RESULT + 10 * 16.
     ELSE.
        RESULT = RESULT + 10.
     ENDIF.
 WHEN 'B'.
     IF ITIMES = 0.
        RESULT = RESULT + 11 * 16.
     ELSE.
        RESULT = RESULT + 11.
     ENDIF.
 WHEN 'C'.
     IF ITIMES = 0.
        RESULT = RESULT + 12 * 16.
     ELSE.
        RESULT = RESULT + 12.
     ENDIF.
 WHEN 'D'.
     IF ITIMES = 0.
        RESULT = RESULT + 13 * 16.
     ELSE.
        RESULT = RESULT + 13.
     ENDIF.
 WHEN 'E'.
     IF ITIMES = 0.
        RESULT = RESULT + 14 * 16.
     ELSE.
        RESULT = RESULT + 14.
     ENDIF.
 WHEN 'F'.
     IF ITIMES = 0.
        RESULT = RESULT + 15 * 16.
     ELSE.
        RESULT = RESULT + 15.
     ENDIF.
 WHEN OTHERS.
     IF ITIMES = 0.
         RESULT = RESULT + HX+ITIMES(1) * 16.
     ELSE.
         RESULT = RESULT + HX+ITIMES(1).
     ENDIF.
ENDCASE.
ITIMES = ITIMES + 1.
ENDDO.
RESULTTXT = RESULT.
IF IPTXT <> ''.
   CONCATENATE IPTXT '.' RESULTTXT INTO IPTXT.
ELSE.
   IPTXT = RESULTTXT.
ENDIF.
 ITIMES1 = ITIMES1 + 2.
ENDDO.
ZLOGONINFO-IP = IPTXT.
ZLOGONINFO-TERMINAL = TERM.
ZLOGONINFO-DATUM = SY-DATUM.
ZLOGONINFO-UZEIT = SY-UZEIT.
insert INTO ZLOGONINFO CLIENT SPECIFIED VALUES ZLOGONINFO.