Reading Webservice information from ABAP Program

Question

Hi All,
How to read a webservice information from a ABAP program ?
Are there any webservices available in ABAP which can do this .
Gopal.

Answer 1

Hi,
The following code will call the web service and fill the data into internal table which was received from the Web service. This code will send & Receive the data from ABAP to Webservice.
Change the Header detail as per your Webservice.
REPORT  ZWORKORDER.
TYPES: BEGIN OF OUTTAB1 ,
  JOBCODE(20),
  COMPONENTCODE(20),
  ACCURATEHOURS(20),
  ACCURATECOST(20),
  LENGTH TYPE I,
   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 .
CLEAR WF_STRING .
Form the input string to send the Input Data to Web service.
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>'
'    <GetWorkOrder xmlns="http://*******erica.net/webservices/">'
'      <nWorkOrder>2</nWorkOrder>'
'      <nDistributorCode>4871</nDistributorCode>'
'      <model>HM400</model>'
'     <type>1 </type>'
'    </GetWorkOrder>'
'  </soap:Body>'
'</soap:Envelope>'
INTO WF_STRING .
CLEAR :RLENGTH , TXLEN .
RLENGTH = STRLEN( WF_STRING ) .
MOVE: RLENGTH TO TXLEN .
CLEAR: WF_PROXY, WF_PORT .
CALL METHOD CL_HTTP_CLIENT=>CREATE
  EXPORTING
    HOST    = '192.168.1.41' "'http://****merica.net/webservices'
    SERVICE = '8080'
    SCHEME  = '1'
  IMPORTING
    CLIENT  = HTTP_CLIENT.
HTTP_CLIENT->PROPERTYTYPE_LOGON_POPUP = HTTP_CLIENT->CO_DISABLED.
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 = '/service/accurate/workorder.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://********merica.net/webservices/GetWorkOrder'.
CALL METHOD HTTP_CLIENT->REQUEST->SET_CDATA
  EXPORTING
    DATA   = WF_STRING
    OFFSET = 0
    LENGTH = RLENGTH.
Send the Input Data to Web service.
CALL METHOD HTTP_CLIENT->SEND
  EXCEPTIONS
    HTTP_COMMUNICATION_FAILURE = 1
    HTTP_INVALID_STATE         = 2.
Receive the Input from Web Serice.
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( ).
DATA: LENGTH TYPE I.
LENGTH = STRLEN( WF_STRING1 ).
DATA: VALUE_FIELD TYPE NAME_KOMP.
DATA: VALUE TYPE REF TO DATA.
FIELD-SYMBOLS: <FS_CONVERTED_DATA>.
DATA: TAB1 TYPE TABLE OF STRING.
DATA: FROM_LENGTH TYPE I VALUE 1.
DATA: TO_LENGTH TYPE I.
DATA: DIFF TYPE I.
DATA: START TYPE I VALUE 1.
DO.
JOBCODE.
  SEARCH WF_STRING1 FOR 'JobCode=' . "STARTING AT START .
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.
  FROM_LENGTH = SY-FDPOS .
  FROM_LENGTH = FROM_LENGTH  + 8.
  SEARCH WF_STRING1 FOR 'JobDescription=' ."STARTING AT START ..
  TO_LENGTH = SY-FDPOS .
  DIFF = TO_LENGTH - FROM_LENGTH .
  MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-JOBCODE.
  TO_LENGTH = DIFF + TO_LENGTH.
  SHIFT WF_STRING1 BY TO_LENGTH PLACES.
COMPONENT CODE
  SEARCH WF_STRING1 FOR 'ComponentCode=' .
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.
  FROM_LENGTH = SY-FDPOS .
  FROM_LENGTH = FROM_LENGTH  + 14.
  SEARCH WF_STRING1 FOR 'ComponentDescription=' .
  TO_LENGTH = SY-FDPOS .
  DIFF = TO_LENGTH - FROM_LENGTH .
  MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-COMPONENTCODE.
  TO_LENGTH = DIFF + TO_LENGTH.
  SHIFT WF_STRING1 BY TO_LENGTH PLACES.
AccurateHours
  SEARCH WF_STRING1 FOR 'AccurateHours=' .
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.
  FROM_LENGTH = SY-FDPOS .
  FROM_LENGTH = FROM_LENGTH  + 14.
  SEARCH WF_STRING1 FOR 'AccurateCost='.
  TO_LENGTH = SY-FDPOS .
  DIFF = TO_LENGTH - FROM_LENGTH .
  MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-ACCURATEHOURS.
  TO_LENGTH = DIFF + TO_LENGTH.
AccurateCost
  SEARCH WF_STRING1 FOR 'AccurateCost='.
  FROM_LENGTH =  SY-FDPOS.
  FROM_LENGTH =  FROM_LENGTH + 13.
  SEARCH WF_STRING1 FOR '/>'.
  TO_LENGTH = SY-FDPOS.
  DIFF = TO_LENGTH - FROM_LENGTH .
  MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-ACCURATECOST.
  TO_LENGTH = DIFF + TO_LENGTH.
  SHIFT WF_STRING1 BY TO_LENGTH PLACES.
  APPEND TAB TO OUTTAB.
ENDDO.
WRITE: (10) 'JOBCODE'.
WRITE (20) 'COMPONENTCODE'.
WRITE (30) 'ACCURATEHOURS'.
WRITE (40) 'ACCURATECOST'.
LOOP AT OUTTAB INTO TAB.
  WRITE:/ TAB-JOBCODE .
  WRITE (20) TAB-COMPONENTCODE.
  WRITE (30) TAB-ACCURATEHOURS.
  WRITE (40) TAB-ACCURATECOST.
ENDLOOP .
It is better to create a proxy, it then puts a level of abstraction between in that coding. All you need to do is then access the proxy class.
Besides that i think you can do it by configuring the ITS and calling the webservice by means of using BSP applications in ABAP
<b>I believe you need to create a proxy in order to consume your web service.
http://help.sap.com/saphelp_nw2004s/helpdata/en/bf/d005244e9d1d4d92b2fe7935556b4c/frameset.htm
Reward points</b>
Regards