REPORT ZVV0IP .
  DATA: W_HOST(15)     TYPE C,
        W_TERMINAL(30) TYPE C.
  CALL FUNCTION 'TH_USER_INFO'
       IMPORTING
            HOST                = W_HOST
            TERMINAL            = W_TERMINAL
       EXCEPTIONS
            OTHERS              = 1.
  IF SY-SUBRC = 0.
    WRITE: / 'IP address:', W_HOST,
           / 'Terminal  :', W_TERMINAL.
  ELSE.
    WRITE / 'Unknown Error.'.
  ENDIF.