diff --git a/src/zabapgit_http.prog.abap b/src/zabapgit_http.prog.abap index 27c9bb0cf..e74024eda 100644 --- a/src/zabapgit_http.prog.abap +++ b/src/zabapgit_http.prog.abap @@ -416,11 +416,11 @@ CLASS lcl_http IMPLEMENTATION. METHOD create_by_url. - DATA: lv_uri TYPE string, - lv_scheme TYPE string, - li_client TYPE REF TO if_http_client, - lo_proxy_configuration TYPE REF TO lcl_proxy_configuration, - lv_text TYPE string. + DATA: lv_uri TYPE string, + lv_scheme TYPE string, + li_client TYPE REF TO if_http_client, + lo_proxy_configuration TYPE REF TO lcl_proxy_configuration, + lv_text TYPE string. lo_proxy_configuration = lcl_app=>proxy( ). @@ -505,6 +505,9 @@ CLASS lcl_http IMPLEMENTATION. lt_list TYPE zif_abapgit_definitions=>ty_icm_sinfo2_tt, li_exit TYPE REF TO lif_exit. + FIELD-SYMBOLS: LIKE LINE OF lt_list. + + CALL FUNCTION 'ICM_GET_INFO2' TABLES servlist = lt_list @@ -517,6 +520,9 @@ CLASS lcl_http IMPLEMENTATION. RETURN. ENDIF. + APPEND INITIAL LINE TO lt_list ASSIGNING . + -hostname = 'localhost'. + li_exit = lcl_exit=>get_instance( ). li_exit->change_local_host( CHANGING ct_hosts = lt_list ).