* 获取计算机名
DATA pcname TYPE string.
CALL METHOD cl_gui_frontend_services=>get_computer_name
CHANGING
computer_name = pcname.
CALL METHOD cl_gui_cfw=>update_view.
TRANSLATE pcname TO LOWER CASE .
* 获取终端IP地址
DATA lv_name TYPE char40.
DATA lv_ip TYPE char20.
DATA v_terminal TYPE xuterminal.
CALL FUNCTION 'TERMINAL_ID_GET'
EXPORTING
username = sy-uname
IMPORTING
terminal = v_terminal
EXCEPTIONS
multiple_terminal_id = 1
no_terminal_found = 2
OTHERS = 3.
IF v_terminal IS NOT INITIAL .
SPLIT v_terminal AT '-' INTO lv_ip lv_name .
TRANSLATE lv_name TO LOWER CASE .
ENDIF .
DATA pcname TYPE string.
CALL METHOD cl_gui_frontend_services=>get_computer_name
CHANGING
computer_name = pcname.
CALL METHOD cl_gui_cfw=>update_view.
TRANSLATE pcname TO LOWER CASE .
* 获取终端IP地址
DATA lv_name TYPE char40.
DATA lv_ip TYPE char20.
DATA v_terminal TYPE xuterminal.
CALL FUNCTION 'TERMINAL_ID_GET'
EXPORTING
username = sy-uname
IMPORTING
terminal = v_terminal
EXCEPTIONS
multiple_terminal_id = 1
no_terminal_found = 2
OTHERS = 3.
IF v_terminal IS NOT INITIAL .
SPLIT v_terminal AT '-' INTO lv_ip lv_name .
TRANSLATE lv_name TO LOWER CASE .
ENDIF .


