cl_http_client=>create_by_url( exporting url                = i_url
                                 importing client             = lr_client
                                exceptions internal_error     = 1
                                           argument_not_found = 2
                                           plugin_not_active  = 3
                                           others             = 4 ).
  if sy-subrc ne 0.
    message 'Create client error' type 'I'.
    leave to screen 0.
  endif.

  lr_client->send( exceptions http_communication_failure  = 1
                              http_invalid_state          = 2
                              http_processing_failed      = 3
                              others                      = 4 ).
  if sy-subrc ne 0.
    message 'Request send error' type 'I'.
    leave to screen 0.
  endif.

  lr_client->receive( exceptions http_communication_failure = 1
                                 http_invalid_state         = 2
                                 http_processing_failed     = 3
                                 others                     = 4 ).
  if sy-subrc ne 0.
    message 'Recieve response error' type 'I'.
    leave to screen 0.
  endif.

  cr_response = lr_client->response.
  free lr_client.