web service

Former Member — Thu, 31 Oct 2013 13:13:32 GMT

Hi All,

I am trying to consume a web service,where I need to pass the soap header for sending the request to the sever.

I am using if_ws_protocol_ws_header->SET_REQUEST_HEADER to set the cilent id to the soap header. After a lot of trouble shooting I came to conclusion that the client id not being updated in soap header.

I want to know how to set the soap header? I have tested the web service in the SOAP UI testing tool and it works fine.

Here is what I am trying to pass:

'<soap:Header>'

'<AuthenticateHeader xmlns="http://mycomany.com/PDM/PartRegistration/">'

'<ClientID>''MSM''</ClientID>'

'</AuthenticateHeader>'

'</soap:Header>'

ABAP Code is :

REPORT ytest_webservice NO STANDARD PAGE HEADING.

DATA : proxy TYPE REF TO zwpart_brokerco_part_broker_so.

DATA: input TYPE zwpart_brokercreate44part_num1,

output TYPE zwpart_brokercreate44part_numb.

DATA : ws_header TYPE REF TO if_wsprotocol_ws_header,

name TYPE string,

namespace TYPE string,

system_fault TYPE REF TO cx_ai_system_fault.

* set somehow header as iXML-DOM tree

DATA: ixml TYPE REF TO if_ixml,

xml_document TYPE REF TO if_ixml_document,

xml_root TYPE REF TO if_ixml_element,

xml_element TYPE REF TO if_ixml_element,

xml_node TYPE REF TO if_ixml_node.

DATA l_xstring TYPE xstring.

DATA l_string TYPE string.

FIELD-SYMBOLS <fs_xstring> TYPE xstring.

TRY.

CREATE OBJECT proxy

EXPORTING

logical_port_name = 'ZPART_BROKER'.

* get WS_HEADER protocol

ws_header ?= proxy->get_protocol('IF_WSPROTOCOL_WS_HEADER').

* Additional Header:

CONCATENATE

'<soap:Header>'

'<AuthenticateHeader xmlns="url">'

'<ClientID>''MSM''</ClientID>'

'</AuthenticateHeader>'

'</soap:Header>' INTO l_string.

* convert to xstring

l_xstring = cl_proxy_service=>cstring2xstring( l_string ).

IF NOT l_string IS INITIAL.

* create iXML DOM document from XML xstring

CALL FUNCTION 'SDIXML_XML_TO_DOM'

EXPORTING

xml = l_xstring

IMPORTING

document = xml_document

EXCEPTIONS

invalid_input = 1

OTHERS = 2.

IF sy-subrc = 0 AND NOT xml_document IS INITIAL.

xml_root = xml_document->get_root_element( ).

xml_element ?= xml_root->get_first_child( ).

* add header element by element to SOAP header

WHILE NOT xml_element IS INITIAL.

name = xml_element->get_name( ).

namespace = xml_element->get_namespace_uri( ) .

IF NOT xml_element IS INITIAL.

ENDIF.

ws_header->set_request_header(

name = name

namespace = namespace

dom = xml_element ).

xml_element ?= xml_element->get_next( ).

ENDWHILE.

ENDIF.

CATCH cx_ai_system_fault.

ENDTRY.

input-prefix = '0050'.

input-material_type = 'HALB'.

input-uom = 'EA'.

input-material_group = '0210'.

input-division = '2P'.

input-description = 'TEST1'.

input-extended_description = 'TEST1'.

input-project = '12345'.

input-requestor = 'anil@gamil.com'.

input-lab_office = '11A'.

input-xplant_status = 'C1'.

TRY.

CALL METHOD proxy->create44part_number

EXPORTING

input = input

IMPORTING

output = output.

CATCH cx_ai_system_fault INTO system_fault.

WRITE:/ 'System Fault'(sye).

WRITE:/ system_fault->errortext.

CATCH cx_ai_application_fault .

WRITE:/ 'Application fault'(apf).

EXIT.

ENDTRY.

WRITE : output-create44part_number_result.

The below screen shot is the error which I am getting.please check this and let me know.

thanks in advance.

Re: web service

Former Member — Mon, 04 Nov 2013 08:48:36 GMT

please give solution..

topic web service in Application Development and Automation Discussions

web service

Re: web service