Calling a WebService from a BSP

Question

Hi,
I have to call a web service published in another web server from a BSP (SAP WAS 620). I know how to use the WAS as client and I also know how to create the XML. The problem is that I dont know if there is some technique or function module or something like this to create the SOAP message to send to the webservice publisher (something to automate the process).
Also If someone has some code to share it will be welcome...
Thanks
Ariel
Message was edited by: Ariel Ferreiro

Answer 1

The following is the code example.  We just put all of our input parameters on the request URL.  The response body then contains the results which we parse out.  This is very similar to the HTTP interface to SAP's own content and cache server.  This example happens to be a SMS Message Provider in Eastern Eurpoe.
data:  client    type ref to if_http_client,
         url       type string.
****Build the Sending URL
  concatenate
    page_srv-send_url
    `&Message=`
    message
    `&Class=`
    class
    `&Number=`
    sms_number
    `&Priority=`
    priority
    `&Project=`
    page_srv-project_name
    `&Sendingnumber=`
    page_srv-sending_number
    into url.
****Create the HTTP client
  call method cl_http_client=>create_by_url
    exporting
      url    = url
      ssl_id = page_srv-ssl_id
    importing
      client = client
    exceptions
      others = 1.
****Set the Request type to GET
  client->request->set_header_field( name  = '~request_method'
                             value = 'GET' ).               "#EC *
****Make the call
  client->send( ).
****Receive the Response Object
  call method client->receive
    exceptions
      http_communication_failure = 1
      http_invalid_state         = 2
      http_processing_failed     = 3
      others                     = 4.
****Get the response content in Character format
  p_content = client->response->get_cdata( ).
  data: result_string type string,
        id_string     type string,
        junk          type string.
****Pull out the Result and the ID
  split p_content at `&` into result_string id_string.
  if result_string cs `Result`.
    split result_string at `=` into junk status.
  else.
    raise unknown_error.
  endif.
Hope this helps.