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.

Anuncios