REPORT ZSAPN_GET_IP.
DATA : IP TYPE STRING.
DATA : TEMP TYPE STRING.
DATA : LV_TERMINAL TYPE USR41-TERMINAL.

CALL FUNCTION 'TERMINAL_ID_GET'
* EXPORTING
*   USERNAME                   = SY-UNAME
  IMPORTING
    TERMINAL             = LV_TERMINAL
  EXCEPTIONS
    MULTIPLE_TERMINAL_ID = 1
    NO_TERMINAL_FOUND    = 2
    OTHERS               = 3.
IF SY-SUBRC <> 0.
  WRITE :/ 'Error in getting terminal'.
ENDIF.

SPLIT LV_TERMINAL AT '-' INTO IP TEMP.
WRITE:/ IP.



Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com