|
Averiguar
TH USER INFO
Permite averiguar la IP y el nombre del terminal del usuario
[editar]Ejemplo
DATA: HOSTADDR LIKE MSXXLIST-HOSTADR, ans(20) type c.
CALL FUNCTION 'TH_USER_INFO'
EXPORTING
CLIENT =
USER = ...
IMPORTING
HOSTADDR = hostaddr.
*
*perform ip_hex2ascii_n using hostaddr ans.
*write:/ ans.
[editar]Ejemplo 2
L_OPCODE = 2.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD L_OPCODE
ID 'TAB' FIELD USR_TABL-*SYS*.
CLEAR T_USER. REFRESH T_USER.
LOOP AT USR_TABL.
T_USER-MANDT = USR_TABL-MANDT.
T_USER-BNAME = USR_TABL-BNAME.
" IP address
T_USER-HOSTADR = USR_TABL-HOSTADR.
T_USER-UTERM = USR_TABL-TERM.
"....
APPEND T_USER.
ENDLOOP.
|