topic Reading Webservice information from ABAP Program in Application Development and Automation Discussions

topic Reading Webservice information from ABAP Program in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/reading-webservice-information-from-abap-program/m-p/2324037#M510566 <HTML><HEAD></HEAD><BODY><P>Hi All,</P><P></P><P>How to read a webservice information from a ABAP program ?</P><P></P><P>Are there any webservices available in ABAP which can do this .</P><P></P><P>Gopal.</P></BODY></HTML> Fri, 15 Jun 2007 06:21:53 GMT Former Member 2007-06-15T06:21:53Z Reading Webservice information from ABAP Program https://community.sap.com/t5/application-development-and-automation-discussions/reading-webservice-information-from-abap-program/m-p/2324037#M510566 <HTML><HEAD></HEAD><BODY><P>Hi All,</P><P></P><P>How to read a webservice information from a ABAP program ?</P><P></P><P>Are there any webservices available in ABAP which can do this .</P><P></P><P>Gopal.</P></BODY></HTML> Fri, 15 Jun 2007 06:21:53 GMT https://community.sap.com/t5/application-development-and-automation-discussions/reading-webservice-information-from-abap-program/m-p/2324037#M510566 Former Member 2007-06-15T06:21:53Z Re: Reading Webservice information from ABAP Program https://community.sap.com/t5/application-development-and-automation-discussions/reading-webservice-information-from-abap-program/m-p/2324038#M510567 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> </P><P></P><P></P><P>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.</P><P></P><P>Change the Header detail as per your Webservice.</P><P></P><P></P><P>REPORT ZWORKORDER.</P><P> </P><P> </P><P>TYPES: BEGIN OF OUTTAB1 ,</P><P> JOBCODE(20),</P><P> COMPONENTCODE(20),</P><P> ACCURATEHOURS(20),</P><P> ACCURATECOST(20),</P><P> LENGTH TYPE I,</P><P> END OF OUTTAB1 .</P><P> </P><P>DATA: OUTTAB TYPE TABLE OF OUTTAB1.</P><P>DATA: TAB TYPE OUTTAB1.</P><P> </P><P>DATA: WF_O LIKE LINE OF OUTTAB .</P><P>DATA: XSLT_ERR TYPE REF TO CX_XSLT_EXCEPTION .</P><P>DATA: RLENGTH TYPE I,</P><P> TXLEN TYPE STRING .</P><P> </P><P>DATA: HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT .</P><P> </P><P>DATA: WF_STRING TYPE STRING .</P><P>DATA: WF_STRING1 TYPE STRING .</P><P>DATA: WF_PROXY TYPE STRING ,</P><P> WF_PORT TYPE STRING .</P><P> </P><P> </P><P>CLEAR WF_STRING .</P><P> </P><UL><LI level="1" type="ul"><P>Form the input string to send the Input Data to Web service.</P></LI></UL><P> </P><P>CONCATENATE</P><P> </P><P>'<?xml version="1.0" encoding="utf-8"?>'</P><P>'<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"</P><P>xmlns:xsd="http://www.w3.org/2001/XMLSchema"</P><P>xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'</P><P>' <soap:Body>'</P><P>' <GetWorkOrder xmlns="http://*******erica.net/webservices/">'</P><P>' <nWorkOrder>2</nWorkOrder>'</P><P>' <nDistributorCode>4871</nDistributorCode>'</P><P>' <model>HM400</model>'</P><P>' <type>1 </type>'</P><P>' </GetWorkOrder>'</P><P>' </soap:Body>'</P><P>'</soap:Envelope>'</P><P> </P><P>INTO WF_STRING .</P><P> </P><P>CLEAR :RLENGTH , TXLEN .</P><P>RLENGTH = STRLEN( WF_STRING ) .</P><P>MOVE: RLENGTH TO TXLEN .</P><P> </P><P>CLEAR: WF_PROXY, WF_PORT .</P><P> </P><P>CALL METHOD CL_HTTP_CLIENT=>CREATE</P><P> EXPORTING</P><P> HOST = '192.168.1.41' "'http://****merica.net/webservices'</P><P> SERVICE = '8080'</P><P> SCHEME = '1'</P><P> IMPORTING</P><P> CLIENT = HTTP_CLIENT.</P><P> </P><P>HTTP_CLIENT->PROPERTYTYPE_LOGON_POPUP = HTTP_CLIENT->CO_DISABLED.</P><P> </P><P> </P><P>CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD</P><P> EXPORTING</P><P> NAME = '~request_method'</P><P> VALUE = 'POST'.</P><P> </P><P>CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD</P><P> EXPORTING</P><P> NAME = '~server_protocol'</P><P> VALUE = 'HTTP/1.1'.</P><P> </P><P>CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD</P><P> EXPORTING</P><P> NAME = '~request_uri'</P><P> VALUE = '/service/accurate/workorder.asmx?'.</P><P> </P><P>CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD</P><P> EXPORTING</P><P> NAME = 'Content-Type'</P><P> VALUE = 'text/xml; charset=utf-8'.</P><P> </P><P>CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD</P><P> EXPORTING</P><P> NAME = 'Content-Length'</P><P> VALUE = TXLEN.</P><P> </P><P>CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD</P><P> EXPORTING</P><P> NAME = 'SOAPAction'</P><P> VALUE = 'http://********merica.net/webservices/GetWorkOrder'.</P><P> </P><P> </P><P>CALL METHOD HTTP_CLIENT->REQUEST->SET_CDATA</P><P> EXPORTING</P><P> DATA = WF_STRING</P><P> OFFSET = 0</P><P> LENGTH = RLENGTH.</P><P> </P><UL><LI level="1" type="ul"><P>Send the Input Data to Web service.</P></LI></UL><P> </P><P>CALL METHOD HTTP_CLIENT->SEND</P><P> EXCEPTIONS</P><P> HTTP_COMMUNICATION_FAILURE = 1</P><P> HTTP_INVALID_STATE = 2.</P><P> </P><UL><LI level="1" type="ul"><P>Receive the Input from Web Serice.</P></LI></UL><P> </P><P>CALL METHOD HTTP_CLIENT->RECEIVE</P><P> EXCEPTIONS</P><P> HTTP_COMMUNICATION_FAILURE = 1</P><P> HTTP_INVALID_STATE = 2</P><P> HTTP_PROCESSING_FAILED = 3.</P><P> </P><P>CLEAR WF_STRING1 .</P><P>WF_STRING1 = HTTP_CLIENT->RESPONSE->GET_CDATA( ).</P><P>DATA: LENGTH TYPE I.</P><P> </P><P>LENGTH = STRLEN( WF_STRING1 ).</P><P> </P><P>DATA: VALUE_FIELD TYPE NAME_KOMP.</P><P>DATA: VALUE TYPE REF TO DATA.</P><P>FIELD-SYMBOLS: <FS_CONVERTED_DATA>.</P><P> </P><P>DATA: TAB1 TYPE TABLE OF STRING.</P><P> </P><P>DATA: FROM_LENGTH TYPE I VALUE 1.</P><P>DATA: TO_LENGTH TYPE I.</P><P>DATA: DIFF TYPE I.</P><P>DATA: START TYPE I VALUE 1.</P><P> </P><P> </P><P>DO.</P><P> </P><UL><LI level="1" type="ul"><P>JOBCODE.</P></LI></UL><P> </P><P> SEARCH WF_STRING1 FOR 'JobCode=' . "STARTING AT START .</P><P> </P><P> IF SY-SUBRC <> 0.</P><P> EXIT.</P><P> ENDIF.</P><P> </P><P> FROM_LENGTH = SY-FDPOS .</P><P> </P><P> </P><P> FROM_LENGTH = FROM_LENGTH + 8.</P><P> </P><P> SEARCH WF_STRING1 FOR 'JobDescription=' ."STARTING AT START ..</P><P> </P><P> </P><P> TO_LENGTH = SY-FDPOS .</P><P> </P><P> DIFF = TO_LENGTH - FROM_LENGTH .</P><P> </P><P> MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-JOBCODE.</P><P> </P><P> TO_LENGTH = DIFF + TO_LENGTH.</P><P> </P><P> SHIFT WF_STRING1 BY TO_LENGTH PLACES.</P><P> </P><UL><LI level="1" type="ul"><P>COMPONENT CODE</P></LI></UL><P> </P><P> SEARCH WF_STRING1 FOR 'ComponentCode=' .</P><P> </P><P> IF SY-SUBRC <> 0.</P><P> EXIT.</P><P> ENDIF.</P><P> </P><P> FROM_LENGTH = SY-FDPOS .</P><P> </P><P> </P><P> FROM_LENGTH = FROM_LENGTH + 14.</P><P> </P><P> SEARCH WF_STRING1 FOR 'ComponentDescription=' .</P><P> </P><P> TO_LENGTH = SY-FDPOS .</P><P> </P><P> DIFF = TO_LENGTH - FROM_LENGTH .</P><P> </P><P> MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-COMPONENTCODE.</P><P> </P><P> TO_LENGTH = DIFF + TO_LENGTH.</P><P> </P><P> SHIFT WF_STRING1 BY TO_LENGTH PLACES.</P><P> </P><P> </P><UL><LI level="1" type="ul"><P>AccurateHours</P></LI></UL><P> </P><P> SEARCH WF_STRING1 FOR 'AccurateHours=' .</P><P> </P><P> IF SY-SUBRC <> 0.</P><P> EXIT.</P><P> ENDIF.</P><P> </P><P> FROM_LENGTH = SY-FDPOS .</P><P> </P><P> </P><P> FROM_LENGTH = FROM_LENGTH + 14.</P><P> </P><P> SEARCH WF_STRING1 FOR 'AccurateCost='.</P><P> </P><P> TO_LENGTH = SY-FDPOS .</P><P> </P><P> DIFF = TO_LENGTH - FROM_LENGTH .</P><P> </P><P> MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-ACCURATEHOURS.</P><P> </P><P> TO_LENGTH = DIFF + TO_LENGTH.</P><P> </P><P> </P><UL><LI level="1" type="ul"><P> AccurateCost</P></LI></UL><P> </P><P> SEARCH WF_STRING1 FOR 'AccurateCost='.</P><P> </P><P> FROM_LENGTH = SY-FDPOS.</P><P> </P><P> FROM_LENGTH = FROM_LENGTH + 13.</P><P> </P><P> SEARCH WF_STRING1 FOR '/>'.</P><P> </P><P> TO_LENGTH = SY-FDPOS.</P><P> </P><P> DIFF = TO_LENGTH - FROM_LENGTH .</P><P> </P><P> MOVE WF_STRING1+FROM_LENGTH(DIFF) TO TAB-ACCURATECOST.</P><P> </P><P> TO_LENGTH = DIFF + TO_LENGTH.</P><P> </P><P> SHIFT WF_STRING1 BY TO_LENGTH PLACES.</P><P> </P><P> APPEND TAB TO OUTTAB.</P><P> </P><P>ENDDO.</P><P> </P><P>WRITE: (10) 'JOBCODE'.</P><P>WRITE (20) 'COMPONENTCODE'.</P><P>WRITE (30) 'ACCURATEHOURS'.</P><P>WRITE (40) 'ACCURATECOST'.</P><P> </P><P>LOOP AT OUTTAB INTO TAB.</P><P> WRITE:/ TAB-JOBCODE .</P><P> WRITE (20) TAB-COMPONENTCODE.</P><P> WRITE (30) TAB-ACCURATEHOURS.</P><P> WRITE (40) TAB-ACCURATECOST.</P><P> </P><P>ENDLOOP .</P><P></P><P>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.</P><P></P><P></P><P>Besides that i think you can do it by configuring the ITS and calling the webservice by means of using BSP applications in ABAP </P><P></P><P><b>I believe you need to create a proxy in order to consume your web service.</P><P></P><P><A href="http://help.sap.com/saphelp_nw2004s/helpdata/en/bf/d005244e9d1d4d92b2fe7935556b4c/frameset.htm" target="test_blank">http://help.sap.com/saphelp_nw2004s/helpdata/en/bf/d005244e9d1d4d92b2fe7935556b4c/frameset.htm</A></P><P></P><P></P><P>Reward points</b></P><P></P><P>Regards</P></BODY></HTML> Fri, 15 Jun 2007 08:25:51 GMT https://community.sap.com/t5/application-development-and-automation-discussions/reading-webservice-information-from-abap-program/m-p/2324038#M510567 Former Member 2007-06-15T08:25:51Z