CONSUMER PROXY Webservice call

Question

How to set SOAP ENV and HEADER to achieve some like
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" *xmlns:cred="http://www.cba.com.au/ifw/credentials010" xmlns:ns="http://commbank.com.au/ifw/210"* xmlns:ifw="http://www.ibm.com/industries/financialservices/ifw210">
   <soapenv:Header>
      <*cred*:UserIdentityHeader>
           <cred:Domain>?</cred:Domain>
            <cred:LoginID>?</cred:LoginID>
           <cred:WorkstationId>?</cred:WorkstationId>
      </cred:UserIdentityHeader>
    </soapenv:Header>
.... etc
Our calling program below
gets close, but fails with xml parse errors on the namespace.
Without setting space we can set the header to outbound soap env.
But cant crack the namespace issue.
In Bold above setting the cred prefix works, but the xmnls namespace declaration and
parse is the final goal.
Any ideas.
thanks
Phil.
report  z_record_payment_service.
data: l_tab_proxy_controller type prxctrltab,
      l_str_proxy_controller type line of prxctrltab.
data: l_str_proxy_domain       type line of prxctrltab,
      l_str_proxy_login        type line of prxctrltab,
      l_str_proxy_workstation  type line of prxctrltab.
data: l_ref_rec_pay_class type seoclname value 'ZCO_RECORD_PAYMENT_WEB_SERVICE' .
data: l_ref_rec_payment type ref to zco_record_payment_web_service.
data: l_str_output type zrecord_payment_soap_out .
data: l_str_input type zrecord_payment_soap_in .
*data: soap_output TYPE /CBA/DMRECORD_PAYMENT_SOAP_OUT.
*data: soap_input type /CBA/DMRECORD_PAYMENT_SOAP_IN .
data: l_excep_sys_fault type ref to cx_ai_system_fault.
data: l_ref_clientproxy      type ref to cl_proxy_client,
      l_ref_protocol         type ref to if_wsprotocol_payload,
      l_ref_header           type ref to if_wsprotocol_ws_header.
data: l_rif_xml type ref to if_ixml,
      l_ref_stream_factory type ref to if_ixml_stream_factory,
      l_rif_document            type ref to if_ixml_document.
data: element type ref to if_ixml_element,
      parent  type ref to if_ixml_element.
data:  l_rif_o_stream            type ref to if_ixml_ostream,
        l_rif_parser              type ref to if_ixml_parser,
        renderer                  type ref to if_ixml_renderer.
data : l_header type string.
data: l_ref_application type ref to cx_ai_application_fault.
l_rif_xml = cl_ixml=>create( ).
l_ref_stream_factory = l_rif_xml->create_stream_factory( ).
l_rif_document  = l_rif_xml->create_document( ).
l_rif_document->set_declaration( abap_false ).
l_rif_document->create_namespace_decl(
    name   = ''
    prefix = 'cred'
    uri    = 'http://www.cba.com.au/ifw/credentials010'
parent  =  l_rif_document->create_simple_element_ns(
            name = 'UserIdentityHeader'
            prefix = 'cred'
            parent = l_rif_document ). " this is the root node!
element = l_rif_document->create_simple_element_ns(
            name = 'Domain'
            prefix = 'cred'
            value = 'ifwsystem'
            parent = parent )." parent is NOT initial!
element = l_rif_document->create_simple_element_ns(
            name = 'LoginId'
            prefix = 'cred'
            value = 'ifwsystem'
            parent = parent )." parent is NOT initial!
element = l_rif_document->create_simple_element_ns(
            name = 'WorkstationId'
            prefix = 'cred'
            value = 'syd036'
            parent = parent )." parent is NOT initial!
  l_rif_o_stream = l_ref_stream_factory->create_ostream_cstring( l_header ). " convert it back to xstring
  renderer = l_rif_xml->create_renderer( document = l_rif_document
                                       ostream = l_rif_o_stream ).
  renderer->render( ).
try.
create object  l_ref_rec_payment
EXPORTING
   logical_port_name  = logical_port_name  " default ?
catch cx_ai_system_fault .
endtry.
l_ref_header ?= l_ref_rec_payment->get_protocol( if_wsprotocol=>ws_header ).
l_ref_header->set_request_header(
    name            = 'UserIdentityHeader'
    namespace       = 'http://www.cba.com.au/ifw/credentials010'
    dom             = parent
   MUST_UNDERSTAND = SPACE
try.
l_ref_rec_payment->record_payment(
  exporting
    input  = l_str_input
  importing
    output = l_str_output
catch cx_ai_system_fault into l_excep_sys_fault .
catch cx_ai_application_fault into l_ref_application.
endtry.

Answer 1

Hi,
It is possible to call a web service from an FM being called in background task. Is the web service a synchronous call or an asynchronous one? In case an error occurs while web service is called, you can use SM21 to check the logs.
Alternately you can update a Z table in your FM before and after the web service call.
Regards,
Chen
Edited by: Chen K V on Mar 31, 2011 7:09 AM