EXECUTE_ACTION

获取request

获取host

DATA lv_tech TYPE REF TO /iwbep/cl_mgw_request.
TRY.  
    lv_tech ?= io_tech_request_context.  
    CALL METHOD lv_tech->get_request_details  
      RECEIVING  
        rs_request = DATA(ls_request).  
    DATA(lv_base_url) = ls_request-base_url.  
    SPLIT lv_base_url AT ':' INTO DATA(lv_protol) DATA(lv_host) DATA(lv_port).  
    TRANSLATE lv_host TO UPPER CASE.  
    CASE lv_host.  
      WHEN '//LNERPDEV.CGDG.COM'."  
        net_flag = 'X'."内网  
      WHEN OTHERS.  
        net_flag = 'Y'."外网  
    ENDCASE.  
  CATCH cx_root.  
ENDTRY.
*****
copy_data_to_ref( EXPORTING is_data = ls_result  
                       CHANGING cr_data = er_data ).