FQDN ermitteln
mit folgendem Snippet ist es möglich den FQDN eines SAP-Systems zur Laufzeit zu ermitteln. Diese Information ist für diejenigen wichtig, die BSPs o.ä. dynamisch rufen wollen. Sollte das SAP nicht mit FQDN parametrisiert sein, wird statt dessen die IP-Adresse verwendet.
Am Ende steht in der Variablen GV_URL entweder FQDN + PORT oder IP + PORT.
TYPES: BEGIN OF kernel_version,
key TYPE c LENGTH 21,
data TYPE c LENGTH 69,
END OF kernel_version.
*– global object declaration
DATA:
gr_client TYPE REF TO if_http_client,
gt_html TYPE w3htmltab,
gv_url TYPE string,
gt_server TYPE STANDARD TABLE OF msxxlist,
gs_server TYPE msxxlist,
gv_hostname TYPE string,
gv_portnumber TYPE string,
gv_val TYPE slic_sysid,
gt_kernel_version TYPE STANDARD TABLE OF kernel_version,
gw_kernel_version TYPE kernel_version.
INITIALIZATION.
*— get all servers
CALL FUNCTION ‘TH_SERVER_LIST’
TABLES
list = gt_server
EXCEPTIONS
no_server_list = 1
OTHERS = 2
.
LOOP AT gt_server[] INTO gs_server.
* — read http data —————
CALL FUNCTION ‘TH_GET_VIRT_HOST_DATA’
DESTINATION gs_server-name
EXPORTING
protocol = 1
IMPORTING
hostname = gv_hostname
port = gv_portnumber
EXCEPTIONS
not_found = 1
internal_error = 2
OTHERS = 3.
CASE sy-subrc.
WHEN 0.
* — read SYSID ————-
CALL FUNCTION ‘SLIC_GET_SYSTEM_ID’
IMPORTING
systemid = gv_val.
* — read all core data —–
CALL ‘SAPCORE’ ID ‘ID’ FIELD ‘VERSION’
ID ‘TABLE’ FIELD gt_kernel_version[].
* — read ip-address ——–
READ TABLE gt_kernel_version[] INTO gw_kernel_version
WITH KEY key = ‘IP address’.
IF gv_hostname CS ‘.’.
* — hostname is FQDN ——-
gv_url = gv_hostname.
CONCATENATE ‘http://’ gv_url ‘:’ gv_portnumber INTO gv_url.
ELSE.
* — hostname is not FQDN —
gv_url = gw_kernel_version-data.
CONCATENATE ‘http://’ gv_url ‘:’ gv_portnumber INTO gv_url.
ENDIF.
WHEN 1.
* raise NOT_AUTHORIZED.
WHEN 2.
* RAISE no_valid_date.
WHEN 3.
WHEN 4.
ENDCASE. ” sy-subrc
ENDLOOP. ” AT gt_server[]
- IMG-Struktur anzeigen - 11. März 2024
- ALV-Grid und Dropdown - 8. März 2024
- Finden ─ nicht suchen - 28. Februar 2024
