1 ACCEPTED SOLUTION
Have a look at this section of the online help:
http://help.sap.com/saphelp_nw2004s/helpdata/en/51/d5cd16235e4643ae8ec92395c4ad97/frameset.htm
You can use the example there - except instead of the payload you want to query and request the WS_PROTOCOL. Change:
lo_payload_protocol ?=
lo_clientProxy->get_protocol( if_wsprotocol=>payload ).
to
data lo_header type ref to if_wsprotocol_ws_header.
lo_header ?= lo_clientproxy->get_protocol( if_wsprotocol=>ws_header ).
or here is a complete example for the in-system help:
Description
Using this proxy protocol, you can set additional SOAP header fields for an outbound (client) request message or read them for an outbound response message.
Only proxies are available for the WS outbound (client)
Use
The following methods are available:
SET_REQUEST_HEADER
GET_RESPONSE_HEADER
Example
*&---------------------------------------------------------------------*
*&
*& ---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
************************************************************************
* Report demonstrates use of WS_HEADER protocol
************************************************************************
REPORT docu_proto_ws_header.
DATA: interface TYPE REF TO co_sxidag_fsa_query,
request TYPE sxidag_fsa_query_mt,
response TYPE sxidag_fsa_response_mt,
ws_header TYPE REF TO if_wsprotocol_ws_header,
system_fault TYPE REF TO cx_ai_system_fault,
flight_not_found TYPE REF TO cx_sxidag_flight_not_found,
name TYPE string,
namespace TYPE string.
* fill request data
request-flight_seat_availability_query-flight_id-airline_id = 'LH'.
request-flight_seat_availability_query-flight_id-connection_id =400.
request-flight_seat_availability_query-flight_id-flight_date ='20030524'.
TRY.
* create instance
CREATE OBJECT interface.
* get WS_HEADER protocol
ws_header ?= interface-> get_protocol('IF_WSPROTOCOL_WS_HEADER').
***************************************************************************
* 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.
* Additional Header:
* here we have 2 header elements as DOM fragment, eb:MessageHeaderand wsse:Security
CONCATENATE
'<SOAP-ENV:Header>'
'< eb:MessageHeader eb:version="1.0" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" '
' xmlns:eb="http://www.ebxml.org/namespaces/messageHeader" '
' xmlns:xsd="http://www.w3.org/1999/XMLSchema"> '
' < eb:ConversationId>NULL</eb:ConversationId> '
' < eb:From>'
' < eb:PartyId type="urn:x12.org:IO5:01">99999</eb:PartyId> '
' </eb:From> '
' < eb:To> '
' < eb:PartyId type="urn:x12.org:IO5:01">123123</eb:PartyId> '
' </eb:To> '
' < eb:CPAId>IPCC</eb:CPAId> '
' < eb:Service eb:type="OTA">SabreCommand</eb:Service> '
' < eb:Action>SabreCommandLLSRQ</eb:Action> '
' < eb:MessageData> '
' < eb:MessageId>mid:20001209-133003-2333@ clientofsabre.com< /eb:MessageId> '
' < eb:Timestamp>2001-02-15T11:15:12Z</eb:Timestamp> '
' < eb:TimeToLive>2001-02-15T11:15:12Z</eb:TimeToLive> '
' </eb:MessageData> '
' </eb:MessageHeader> '
' <wsse:Security xmlns:wsse="http://schemas.xmlsoap.org/ws/2002/12/secext" '
' xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/12/utility"> '
' <wsse:UsernameToken> '
' <wsse:Username>12345</wsse:Username> '
' <wsse:Password>ABC123</wsse:Password> '
' <Organization>NM9A</Organization> '
' <Domain>DEFAULT</Domain> '
' </wsse:UsernameToken>'
' </wsse:Security> '
' </SOAP-ENV: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( ).
ws_header-> set_request_header(
name = name
namespace = namespace
dom = xml_element ).
xml_element ?= xml_element->get_next( ).
ENDWHILE.
ENDIF.
ENDIF.
***************************************************************************
* common coding....
* call outbound
CALL METHOD interface->execute_synchronous
EXPORTING
output = request
IMPORTING
input = response.
***************************************************************************
* if supported by WebService, -
* here additional response header elements can be read
* in this example we assume that the server has set the same header fields in
* the response message.
xml_element = ws_header-> get_response_header(
name = 'MessageHeader'
namespace = 'http://www.ebxml.org/namespaces/messageHeader' ).
IF NOT xml_element IS INITIAL.
PERFORM show_xml
USING xml_element.
ENDIF.
* etc.....
CATCH cx_ai_system_fault INTO system_fault.
WRITE:/ 'System Fault'(sye).
WRITE:/ system_fault->errortext.
EXIT.
CATCH cx_sxidag_flight_not_found INTO flight_not_found .
WRITE:/ 'Requested flight not found'(fnf).
EXIT.
CATCH cx_ai_application_fault .
WRITE:/ 'Application fault'(apf).
EXIT.
ENDTRY.
* show Result
WRITE:/ 'Availability Check Result'(res).
SKIP.
WRITE:/ 'Economy Class:'(ecc).
WRITE:/3 'Seats total:'(tot),
response-flight_seat_availability_resp-economy_max_seats.
WRITE:/3 'Seats Free:'(fre),
response-flight_seat_availability_resp-economy_free_seats.
SKIP.
WRITE:/ 'Business Class:'(bsc).
WRITE:/3 text-tot,
response-flight_seat_availability_resp-business_max_seats.
WRITE:/3 text-fre,
response-flight_seat_availability_resp-business_free_seats.
SKIP.
WRITE:/ 'First Class:'(ftc).
WRITE:/3 text-tot,
response-flight_seat_availability_resp-first_max_seats.
WRITE:/3 text-fre,
response-flight_seat_availability_resp-first_free_seats.
*& --------------------------------------------------------------------*
*& Form show_Xml
*& --------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* --> ELEMENT text
*---------------------------------------------------------------------*
FORM show_xml
USING element TYPE REF TO if_ixml_element.
DATA:
ixml_factory TYPE REF TO if_ixml,
stream TYPE REF TO if_ixml_ostream,
encoding TYPE REF TO if_ixml_encoding,
stream_factory TYPE REF TO if_ixml_stream_factory.
DATA: l_x TYPE xstring, l_c TYPE string.
ixml_factory = cl_ixml=>create( ).
stream_factory = ixml_factory->create_stream_factory( ).
encoding = ixml_factory->create_encoding( character_set = 'UTF-8'
byte_order = 0 ).
stream = stream_factory->create_ostream_xstring( string = l_x ).
stream->set_encoding( encoding = encoding ).
element->render( ostream = stream ).
cl_proxy_service=>show_xml_document( xml = l_x ).
ENDFORM. "show_Xml- SAP Managed Tags:
