在ABAP中获取服务器的IP地址

原链接：https://wiki.scn.sap.com/wiki/display/ABAP/Fetching+IP+Address+of+Application+Server+in+ABAP?original_fqdn=wiki.sdn.sap.com

TYPES: BEGIN OF kernel_version,
         key(21)  TYPE c,
         data(69) TYPE c,
       END OF kernel_version.

DATA : gt_kernel_version TYPE STANDARD TABLE OF kernel_version,
       gs_kernel_version TYPE kernel_version.

DATA ip_address(69) TYPE c.
CALL 'SAPCORE' ID 'ID' FIELD 'VERSION'
               ID 'TABLE' FIELD gt_kernel_version[].

READ TABLE gt_kernel_version INTO gs_kernel_version WITH KEY key = 'IP address'.
IF sy-subrc = 0.
  ip_address = gs_kernel_version-data.
ENDIF.

WRITE ip_address.