ABAP 获取当前服务器域名和端口

可以使用以下函数获取SAP 当前服务器的域名和端口其中PROTOCOL = 1 表示http，PROTOCOL = 2 表示https

       CALL FUNCTION 'TH_GET_VIRT_HOST_DATA'
         EXPORTING
           PROTOCOL             = 1
           virt_idx             = virt_idx
           LOCAL                = 1
         IMPORTING
           HOSTNAME             = HOSTNAME
           PORT                 = PORT
         EXCEPTIONS
           NOT_FOUND            = 1
           INTERNAL_ERROR       = 2.