REPORT ZVV0IP .
  DATA: W_HOSTADDR LIKE  MSXXLIST-HOSTADR,
        W_TERMINAL(30) TYPE C,
        w_1 type i,
        w_2 like w_1,
        w_3 like w_1,
        w_4 like w_1.
  CALL FUNCTION 'TH_USER_INFO'
       IMPORTING
            HOSTADDR            = W_HOSTADDR
            TERMINAL            = W_TERMINAL
       EXCEPTIONS
            OTHERS              = 1.
  IF SY-SUBRC = 0.
    w_1 = W_HOSTADDR(1).
    w_2 = W_HOSTADDR+1(1).
    w_3 = W_HOSTADDR+2(1).
    w_4 = W_HOSTADDR+3(1).
    WRITE: / 'IP address:', w_1,'.',w_2,'.',w_3,'.',w_4,
           / 'Terminal  :', W_TERMINAL.
  ELSE.
    WRITE / 'Unknown Error.'.
  ENDIF.