DATA obj TYPE REF TO cl_gui_frontend_services.
CREATE OBJECT obj.
CALL METHOD obj->get_ip_address
RECEIVING
ip_address = host.
DATA: t_uinfo TYPE TABLE OF uinfo WITH HEADER LINE .
DATA: t_usrinfo TYPE TABLE OF usrinfo WITH HEADER LINE .
CALL FUNCTION 'TH_USER_LIST'
TABLES
list = t_uinfo
usrlist = t_usrinfo.
CLEAR: term .
READ TABLE t_usrinfo WITH KEY mandt = sy-mandt bname = sy-uname tcode = sy-tcode hostaddr = host .
IF sy-subrc = 0 .
term = t_usrinfo-term .
ENDIF.
CREATE OBJECT obj.
CALL METHOD obj->get_ip_address
RECEIVING
ip_address = host.
DATA: t_uinfo TYPE TABLE OF uinfo WITH HEADER LINE .
DATA: t_usrinfo TYPE TABLE OF usrinfo WITH HEADER LINE .
CALL FUNCTION 'TH_USER_LIST'
TABLES
list = t_uinfo
usrlist = t_usrinfo.
CLEAR: term .
READ TABLE t_usrinfo WITH KEY mandt = sy-mandt bname = sy-uname tcode = sy-tcode hostaddr = host .
IF sy-subrc = 0 .
term = t_usrinfo-term .
ENDIF.