Web Service in BSP

Question

Hi All,
  I need to get the datas from .NET and display it in BSP Appliaction. The Web service already available for this at .NET. Can some body help me out how i can use the Web-Service in BSP.
Thanks in advance.
Raja T.

Answer 1

Hi,
  As per your need i am posting my code here.
*& Report  ZWEB                                                       *
REPORT  Y_CONSUME_WEBSERVICE
DATA: wf_user TYPE string .
DATA: wf_password TYPE string .
TYPES: BEGIN OF outtab1 ,
   airportcode(6)  ,
   cityofairportname(50),
   country(30)  ,
   countryabbrivation(10),
   countrycode(6)  ,
   gmtoffset(10)  ,
   runwaylengthfeet(15),
   runwayelevationfeet(15),
   latitudedegree(10)  ,
   latitudeminute(10)  ,
   latitudesecond(10)  ,
   latitudenpeers(10)  ,
   longitudedegree(10)  ,
   longitudeminute(10)  ,
   longitudeseconds(10)  ,
   longitudeeperw(10) ,
   END OF outtab1 .
DATA: outtab TYPE  TABLE OF outtab1.
DATA: TAB TYPE OUTTAB1.
DATA: wf_o LIKE LINE OF outtab .
DATA: xslt_err TYPE REF TO cx_xslt_exception .
DATA: rlength TYPE i,
      txlen TYPE string  .
DATA: http_client TYPE REF TO if_http_client .
DATA: wf_string TYPE string .
DATA: wf_string1 TYPE string .
data: wf_proxy type string ,
      wf_port type string .
selection-screen: begin of block a with frame .
PARAMETERS: country(132) TYPE c LOWER CASE .
SELECTION-SCREEN SKIP 1.
PARAMETERS: user(50) LOWER CASE,
            password(50) LOWER CASE ,
            p_proxy(100) LOWER CASE default 'SAPLNT.KOMATSU.COM' ,
            p_port(4) default '80'.
selection-screen: end of block a .
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-name = 'PASSWORD'.
      screen-invisible = '1'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
start-of-selection .
CLEAR wf_string .
CONCATENATE
'<?xml version="1.0" encoding="utf-8"?>'
'<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'
'<soap:Body>'
'<GetAirportInformationByCountry xmlns="http://www.webserviceX.NET">'
'<country>' country '</country>'
'</GetAirportInformationByCountry>'
'</soap:Body>'
'</soap:Envelope>'
INTO wf_string .
CLEAR :rlength , txlen .
rlength = strlen( wf_string ) .
MOVE: rlength TO txlen .
clear: wf_proxy, wf_port .
move: p_proxy to wf_proxy ,
      p_port to wf_port .
CALL METHOD cl_http_client=>create
  EXPORTING
    host          = 'www.webservicex.net'
    service       = '80'
    scheme        = '1'
    proxy_host    =  wf_proxy
    proxy_service =  wf_port
  IMPORTING
    client        = http_client.
http_client->propertytype_logon_popup = http_client->co_disabled.
wf_user = user .
wf_password = password .
proxy server authentication
CALL METHOD http_client->authenticate
  EXPORTING
    proxy_authentication = 'X'
    username             = wf_user
    password             = wf_password.
CALL METHOD http_client->request->set_header_field
  EXPORTING
    name  = '~request_method'
    value = 'POST'.
CALL METHOD http_client->request->set_header_field
  EXPORTING
    name  = '~server_protocol'
    value = 'HTTP/1.1'.
CALL METHOD http_client->request->set_header_field
  EXPORTING
    name  = '~request_uri'
    value = '/airport.asmx'.
CALL METHOD http_client->request->set_header_field
  EXPORTING
    name  = 'Content-Type'
    value = 'text/xml; charset=utf-8'.
CALL METHOD http_client->request->set_header_field
  EXPORTING
    name  = 'Content-Length'
    value = txlen.
CALL METHOD http_client->request->set_header_field
  EXPORTING
    name  = 'SOAPAction'
    value = 'http://www.webserviceX.NET/GetAirportInformationByCountry'.
CALL METHOD http_client->request->set_cdata
  EXPORTING
    data   = wf_string
    offset = 0
    length = rlength.
CALL METHOD http_client->send
  EXCEPTIONS
    http_communication_failure = 1
    http_invalid_state         = 2.
CALL METHOD http_client->receive
  EXCEPTIONS
    http_communication_failure = 1
    http_invalid_state         = 2
    http_processing_failed     = 3.
CLEAR wf_string1 .
wf_string1 = http_client->response->get_cdata( ).
REPLACE ALL OCCURRENCES OF
    '<' IN wf_string1 WITH '<' .
REPLACE ALL OCCURRENCES OF
'>' IN wf_string1 WITH '>' .
REPLACE ALL OCCURRENCES OF
'xmlns=' IN wf_string1 WITH 'xmlns:xsl=' .
TRY .
    CALL TRANSFORMATION (`Y_AIRPORT_XML2ABAP`)
            SOURCE XML wf_string1
            RESULT     outtab = outtab.
  CATCH cx_xslt_exception INTO xslt_err.
    DATA: s TYPE string.
    s = xslt_err->get_text( ).
    WRITE: ': ', s.
    STOP.
ENDTRY .
Loop at outtab INTO TAB.
Write:/ TAB .
Endloop .
*-Y_AIRPORT_XML2ABAP----
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
  <xsl:strip-space elements="*"/>
  <xsl:output indent="yes"/>
  <xsl:template match="NewDataSet">
    <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
      <asx:values>
        <OUTTAB>
          <xsl:for-each select="Table">
            <OUTTAB1>
              <AIRPORTCODE>
                <xsl:value-of select="AirportCode"/>
              </AIRPORTCODE>
              <CITYOFAIRPORTNAME>
                <xsl:value-of select="CityOrAirportName"/>
              </CITYOFAIRPORTNAME>
              <COUNTRY>
                <xsl:value-of select="Country"/>
              </COUNTRY>
              <COUNTRYABBRIVATION>
                <xsl:value-of select="CountryAbbrviation"/>
              </COUNTRYABBRIVATION>
              <COUNTRYCODE>
                <xsl:value-of select="CountryCode"/>
              </COUNTRYCODE>
              <GMTOFFSET>
                <xsl:value-of select="GMTOffset"/>
              </GMTOFFSET>
              <RUNWAYLENGTHFEET>
                <xsl:value-of select="RunwayLengthFeet"/>
              </RUNWAYLENGTHFEET>
              <RUNWAYELEVATIONFEET>
                <xsl:value-of select="RunwayElevationFeet"/>
              </RUNWAYELEVATIONFEET>
              <LATITUDEDEGREE>
                <xsl:value-of select="LatitudeDegree"/>
              </LATITUDEDEGREE>
              <LATITUDEMINUTE>
                <xsl:value-of select="LatitudeMinute"/>
              </LATITUDEMINUTE>
              <LATITUDESECOND>
                <xsl:value-of select="LatitudeSecond"/>
              </LATITUDESECOND>
              <LATITUDENPEERS>
                <xsl:value-of select="LatitudeNpeerS"/>
              </LATITUDENPEERS>
              <LONGITUDEDEGREE>
                <xsl:value-of select="LongitudeDegree"/>
              </LONGITUDEDEGREE>
              <LONGITUDEMINUTE>
                <xsl:value-of select="LongitudeMinute"/>
              </LONGITUDEMINUTE>
              <LONGITUDESECONDS>
                <xsl:value-of select="LongitudeSeconds"/>
              </LONGITUDESECONDS>
              <LONGITUDEEPERW>
                <xsl:value-of select="LongitudeEperW"/>
              </LONGITUDEEPERW>
            </OUTTAB1>
          </xsl:for-each>
        </OUTTAB>
      </asx:values>
    </asx:abap>
  </xsl:template>
</xsl:stylesheet>
Raja T.