TH_USER_INFO – Información de la sesión de usuario
Caso: se busca conocer la información del usuario logueado
Solución: Se utiliza la función TH_USER_INFO
DATA: hostaddr LIKE msxxlist-hostadr, terminal(255), act_sessions LIKE sm04dic-counter, max_sessions LIKE sm04dic-counter, my_session LIKE sm04dic-counter, my_internal_session LIKE sm04dic-counter, task_state LIKE sm04dic-counter. DATA: dot VALUE '.', ip1 TYPE i, ip2 TYPE i, ip3 TYPE i, ip4 TYPE i, c_ip1(3) TYPE c, c_ip2(3) TYPE c, c_ip3(3) TYPE c, c_ip4(3) TYPE c, v_ipaddr(15). CALL FUNCTION 'TH_USER_INFO' IMPORTING hostaddr = hostaddr terminal = terminal act_sessions = act_sessions max_sessions = max_sessions my_session = my_session my_internal_session = my_internal_session task_state = task_state. * Formato Dirección IP c_ip1 = ip1 = hostaddr(1). c_ip2 = ip2 = hostaddr+1(1). c_ip3 = ip3 = hostaddr+2(1). c_ip4 = ip4 = hostaddr+3(1). CONCATENATE c_ip1 dot c_ip2 dot c_ip3 dot c_ip4 INTO v_ipaddr. CONDENSE v_ipaddr NO-GAPS. WRITE'Información del Usuario:', sy-uname. ULINE. WRITE
'Dirección IP:', 20 v_ipaddr, / 'Terminal:', 20 terminal, / 'Sesiones abiertas:', 20 act_sessions, / 'Máx Sesiones:', 20 max_sessions, / 'Sesión actual:', 20 my_session, / 'Sesión interna:', 20 my_internal_session, / 'Estado de tarea:', 20 task_state.
Comentarios (0)
Trackbacks (0)
Deja un comentario
Trackback