Calling a webservice runtime from ABAP

Hi All,
I have a doubt regarding the usage of webservice runtime.
I have a scenario where we have a webdynpro ABAP program which displays all the messages for a particular interface. In our scenario we have only an Integration server of PI 7.1. In this server we have developed the web dynpro ABAP program. Now in this program we need to display the adapter status of the message also.
For getting the adapter status from the Java Stack we developed a webservice. but now the problem is that we cannot consume the webserive using a proxy runtime from the inntegration server.
I have heared that it can be done if we are using webservice runntime instead of the proxy runtime, but i dont have a clue in how to use the web service runtime.
so please somebody help me understand the concept of using the webservice runtime, and how to create and use the webservice runntime to achieve my requirement.
Thanks in advance.
AjithV

Similar Messages

As I can call to a API from ABAP (46C) ?

Hello.
As I can call to a API from ABAP (46C)?
Any idea?
THANKS.

The answer to that question really depends upon the SAP WebAS (or Basis as it used to be known) release you are on.
Did you have a look at the weblog mentioned earlier in this thread:
/people/thomas.jung3/blog/2004/11/17/bsp-a-developers-journal-part-xiv--consuming-webservices-with-abap
It shows some examples on 620 and 640. Let us know what you have to work with, and we will see if we can help.

How to call a sub screen from abap report

Hellow friends,
how to call sub screen 1001 prog name SAPLMGD1
and main program SAPLMGMM screen 4000 of tcode MM02.
i need to call the sub screen from abap report

Hi Rajesh,
You can use FM MATERIAL_MAINTAIN_DIALOGUE to go to subcreen MRP1 in MM02.
Please check this sample code from other thread and enter 'MRP 1' for p_dytxt.
REPORT zsritest.
TABLES mara.
DATA: lv_bilds LIKE t133a-bilds,
ls_t130m LIKE t130m,
ls_rmmg1 LIKE rmmg1,
lwa_view TYPE mbildtab,
lwa_auswg TYPE mgauswg,
lt_views TYPE STANDARD TABLE OF mbildtab INITIAL SIZE 0,
lt_auswg TYPE STANDARD TABLE OF mgauswg INITIAL SIZE 0.
PARAMETERS: p_matnr LIKE mara-matnr,
p_werks LIKE marc-werks,
p_dytxt LIKE mbildtab-dytxt.
SELECT SINGLE * FROM mara WHERE matnr EQ p_matnr.
CHECK sy-subrc EQ 0.
CALL FUNCTION 'T130M_SINGLE_READ'
EXPORTING
tcode = 'MM02'
kzrfb = 'X'
IMPORTING
wt130m = ls_t130m
EXCEPTIONS
not_found = 1
wrong_call = 2
OTHERS = 3.
CALL FUNCTION 'BILDSEQUENZ_IDENTIFY'
EXPORTING
branche = mara-mbrsh
materialart = mara-mtart
tcode_ref = ls_t130m-trref
* KZRFB = ' '
IMPORTING
bildsequenz = lv_bilds
* KZ_BILDS_CHANGED =
EXCEPTIONS
wrong_call = 1
not_found = 2
OTHERS = 3.
CALL FUNCTION 'SELECTION_VIEWS_FIND'
EXPORTING
bildsequenz = lv_bilds
pflegestatus = mara-pstat
TABLES
bildtab = lt_views[]
EXCEPTIONS
call_wrong = 1
empty_selection = 2
OTHERS = 3.
ls_rmmg1-matnr = mara-matnr.
ls_rmmg1-werks = p_werks.
READ TABLE lt_views INTO lwa_view WITH KEY dytxt = p_dytxt.
CHECK sy-subrc EQ 0.
lwa_auswg-auswg = lwa_view-auswg.
APPEND lwa_auswg TO lt_auswg.
CALL FUNCTION 'MATERIAL_MAINTAIN_DIALOGUE'
EXPORTING
irmmg1 = ls_rmmg1
* IRMMG1_REF = ' '
KZ_EIN_DARK = 'X'
t_tcode = 'MM02'
* FLG_MATNR_RES = ' '
p_pstat = mara-pstat
* FLG_STAT_ALL = ' '
* CALL_MODE2 = ' '
* IMPORTING
* MATERIAL_NO =
* UPDATE_OK =
TABLES
iauswg = lt_auswg[]
EXCEPTIONS
no_authority = 1
OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards,
Ferry Lianto

IP - Is it possible to call exit planning function from ABAP Report..

Hi All,
Greetings.
Is it possible to call exit planning function from ABAP Report (t-code SE38) ? Or I mean is not limited only to be called from ABAP Report, perhaps from BSP / Web-Dynpro / Function Module.
If somebody here has been doing it before, I'm keen to ask to kindly share it. Particularly how to call and transfer data to that exit function.
Or if somebody has done in BPS, appreciate if it can be shared too .
Thanks a lot and have a good day,
Best regards,
Daniel N.

Hi.
You can achive this as suggested by Mattias in your previous post.
Lets say you have next data structure:
CostCenter | Amount | PercentForDistibution |
Create input ready query in this format. Restrict cost center by variable type range.
Create WAD with analysis item.
When you run web page you enter range of cost centers (lets say you will enter 101004 to 101010).
I assume you have data only for 101004 in your cube (lets say 1000).
You will see only one record in your webpage.
CostCenter | Amount | PercentForDistibution |
101004       | 1000     | NOTHING
When you create WAD in analysis item properties set "NUMBER_OF_NEW_LINES" to lets say 1 (so in WAD you will see always one blank line for entering new data).
Just add 6 new records:
CostCenter | Amount   | PercentForDistibution |
101005       | NOTHING| 10
101006       | NOTHING| 30
101007       | NOTHING| 20
101008       | NOTHING| 25
101009       | NOTHING| 5
101010       | NOTHING| 10
Then run planning FOX function like this:
FOREACH Z_COST_CENTER.
IF {Amount, Z_COST_CENTER} <> 0
Z_AMNT_TO_DISTRIBUTE = {Amount, Z_COST_CENTER}.
ENDIF.
ENDFOR.
FOREACH Z_COST_CENTER.
IF {PercentForDistibution Z_COST_CENTER} <> 0.
{Amount, Z_COST_CENTER} = Z_AMNT_TO_DISTRIBUTE * {PercentForDistibution Z_COST_CENTER}.
ENDIF.
ENDFOR.
It is not perfect FOX, but as an idead, it should work.
Regards.

Call a Webservice method from DotNetApplication

Hi all,
I have created One web service using Axis. My WebServices are below:
import java.util.*;
public class NHLService {
HashMap standings = new HashMap();
public NHLService() {
    // NHL - part of the standings as per 04/07/2002
    standings.put("atlantic/philadelphia", "1");
    standings.put("atlantic/ny islanders", "2");
    standings.put("atlantic/new jersey", "3");
    standings.put("central/detroit", "1");
    standings.put("central/chicago", "2");
    standings.put("central/st.louis", "3");
public String getCurrentPosition(String division, String team) {
    String p = (String)standings.get(division + '/' + team);
    return (p == null) ? "Team not found" : p;
}Its name is NHLService.jws. Then I run this service in my localhost like this "http://localhost:8080/axis/NHLService.jws" It is running and show that
There is a Web Service here
Click to see the WSDL Now I can view the wsdl. Now I want to call this webservice method from DotNet Application.Please any one knows that can you guide me the steps.
Thanks in Advance,
Raj

but i don't understand a thing...
when i create a static stub client i link with the config-wsdl file the path of my webservices wdsl and the client compile and run well...
why with the servlet i had to link .class file or jar file??
thanks a loto

SAP Script - calling SAP layout set from ABAP/4

Hi,
Help me in calling SAP layout set from ABAP/4
Thanks

Ashish,
create a driver program
create a script
A script is called using the function modules open_form,write_form,close_form.
Check this dummy program.
REPORT ZF3                                 .
tables makt.
data:begin of imakt occurs 0,
     matnr like makt-matnr,
     spras like makt-spras,
     maktx like makt-maktx,
     end of imakt.
DATA : ITEXT LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA : TEXTNAME LIKE STXH-TDNAME.
select matnr spras maktx from makt into table imakt up to 100 rows where
spras = sy-langu.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
APPLICATION                       = 'TX'
ARCHIVE_INDEX                     =
ARCHIVE_PARAMS                    =
DEVICE                            = 'PRINTER'
DIALOG                            = 'X'
   FORM                              = 'ZF3'
LANGUAGE                          = SY-LANGU
OPTIONS                           =
MAIL_SENDER                       =
MAIL_RECIPIENT                    =
MAIL_APPL_OBJECT                  =
RAW_DATA_INTERFACE                = '*'
SPONUMIV                          =
IMPORTING
LANGUAGE                          =
NEW_ARCHIVE_PARAMS                =
RESULT                            =
EXCEPTIONS
CANCELED                          = 1
DEVICE                            = 2
FORM                              = 3
OPTIONS                           = 4
UNCLOSED                          = 5
MAIL_OPTIONS                      = 6
ARCHIVE_ERROR                     = 7
INVALID_FAX_NUMBER                = 8
MORE_PARAMS_NEEDED_IN_BATCH       = 9
SPOOL_ERROR                       = 10
CODEPAGE                          = 11
OTHERS                            = 12
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT IMAKT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
   ELEMENT                        = 'MAIN'
FUNCTION                       = 'SET'
TYPE                           = 'BODY'
WINDOW                         = 'MAIN'
IMPORTING
PENDING_LINES                  =
EXCEPTIONS
ELEMENT                        = 1
FUNCTION                       = 2
TYPE                           = 3
UNOPENED                       = 4
UNSTARTED                      = 5
WINDOW                         = 6
BAD_PAGEFORMAT_FOR_PRINT       = 7
SPOOL_ERROR                    = 8
CODEPAGE                       = 9
OTHERS                         = 10
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDLOOP.
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT                         =
RDI_RESULT                     =
TABLES
OTFDATA                        =
EXCEPTIONS
UNOPENED                       = 1
BAD_PAGEFORMAT_FOR_PRINT       = 2
SEND_ERROR                     = 3
SPOOL_ERROR                    = 4
CODEPAGE                       = 5
OTHERS                         = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
K.Kiran.

Call IDM Rest API from ABAP

Good day experts,
We have a requirement to add privileges to users in IDM via a call from a SAP GRC system
Does anyone have example code of such a call in an ABAP function module?
Thanking you in advance,
Johan Kriek

Martin,
Thanks for your reply.
I tried the Web Service way of doing it, seems to be working alright but again it comes with all the security issues and all around the Web Service.
I am exploring the use of JCO RFC Service provider, to call a JAVA program from ABAP. Hopefully that should work.
Thanks again.
John Miller

Call of BW queries from ABAP code

Has anybody information about how is it possible to call a BW query from ABAP code with parametrization (specifying characteristics) ? In our development project it's a crucial part, beacuse we have to provide interim function modules to carry out some conversion routine on BW provided data, before we put it on the screen embedded in a Visual composer Iview.

Have a look at this:
Calling BW queries programatically (also posted on BW forum)
Hope it helps.
Regards

Call a Java Function From Abap

Hi, I need to call a java function from ABAP, I have a WAS 640 to deploy the module.
I have found this tutorial...
[ABAP calls Java via RFC|/people/thorsten.franz3/blog/2008/11/21/abap-calls-java-via-rfc-1-introduction]
The problem is that it uses a newer version of WAS and it implements EJB 3.0 wich only works on Java 5, but my WAS has java 1.4.2.
Anyone knows how to adapt this Blog to a WAS 640 version ?
Or Perhaps there is another way of doing this, maybe publishing my function as a web service.
Regards.
Mariano.

Why don't you expose your Java functionality as a Web Service and consume it in ABAP program. That should be much easier and the web service can be used in other places as well.
Best regards,
Ritesh Chopra

Method class for calling/executing VB script from abap

Hi All,
I need to call a vb script from abap.
This vb script performs some function then.
For executing this VB script i use the method CL CL_GUI_FRONTEND_SERVICES=>Execute.
Now i need to pass data to the vb script in the from of a structure/workarea.
Does anyone have any idea on what class/method shoul i use?
Regards,
Harshit Rungta

Check Connect VB to SAP
Kanagaraja L

Calling a web service from abap

Hi all,
I want to call a webservice from ABAP.
In my report i use the below code .
web_rul =' http://test.asmx'.
CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
         EXPORTING
         URL                = WEB_URL
         IMPORTING
         CLIENT             = CLIENT
         EXCEPTIONS
         ARGUMENT_NOT_FOUND = 1
         PLUGIN_NOT_ACTIVE = 2
         INTERNAL_ERROR     = 3
         OTHERS             = 4.
         CLIENT->REQUEST->SET_HEADER_FIELD( NAME = '~REQUEST_METHOD' VALUE = 'GET' ).
         CLIENT->SEND( ).
         CALL METHOD CLIENT->RECEIVE
         EXCEPTIONS
         HTTP_COMMUNICATION_FAILURE = 1
         HTTP_INVALID_STATE         = 2
         HTTP_PROCESSING_FAILED     = 3
         OTHERS                     = 4.
         RET_DATA = CLIENT->RESPONSE->GET_CDATA( ).
         REPLACE ALL OCCURRENCES OF '&LT;' IN RET_DATA WITH '<' .
         REPLACE ALL OCCURRENCES OF '&GT;' IN RET_DATA WITH '>' .
Please correct me if my approach is wrong. when i execute the report the value in ret_Data is
####<html>####    <head><link rel="alternate" type="text/xml" href="test.asmx?disco" />####    <style type="text/css">##    ####BODY { color: #000000; background-color: white; font-family: Verdana; margin-left: 0px; margin-top: 0px
what is the mistake in this. how should i call the webservice from abap.
Regards,
Subasree

Hi,
Here is a sample code I've been using for CL_HTTP_CLIENT.
PARAMETERS pa_symbl TYPE string.
CONSTANTS:
             cv_host TYPE string VALUE 'www.webservicex.net',
             cv_host1 TYPE string VALUE 'http://www.webservicex.net:80',
             cv_service TYPE string VALUE '80',
             cv_soapaction TYPE string VALUE 'http://www.webserviceX.NET/GetQuote'.
DATA:   li_client TYPE REF TO if_http_client,
             lv_path TYPE string VALUE '/stockquote.asmx/GetQuote?symbol=',
             lv_tmp TYPE string.
CL_HTTP_CLIENT=>CREATE(
     EXPORTING
       HOST = cv_host
       SERVICE = cv_service
       SCHEME = '1'
     IMPORTING
       CLIENT = li_client
     EXCEPTIONS
       ARGUMENT_NOT_FOUND = 1
       INTERNAL_ERROR = 2
       PLUGIN_NOT_ACTIVE = 3
       OTHERS = 4 ).
*CL_HTTP_CLIENT=>CREATE_BY_URL(
* EXPORTING
*     URL = cv_host1
* IMPORTING
*     CLIENT = li_client
* EXCEPTIONS
*     ARGUMENT_NOT_FOUND = 1
*     INTERNAL_ERROR = 2
*     PLUGIN_NOT_ACTIVE = 3
*     OTHERS = 4 ).
CONDENSE pa_symbl.
CONCATENATE lv_path pa_symbl INTO lv_path.
li_client->REQUEST->SET_HEADER_FIELD(
   EXPORTING
     NAME = '`~request_method'
     VALUE = 'GET' ).
li_client->REQUEST->SET_HEADER_FIELD(
   EXPORTING
     NAME = '~server_protocol'
     VALUE = 'HTTP/1.1' ).
li_client->REQUEST->SET_HEADER_FIELD(
   EXPORTING
     NAME = '~request_uri'
     VALUE = lv_path ).
li_client->SEND(        "sends the HTTP REQUEST
   EXPORTING
     TIMEOUT = 300
   EXCEPTIONS
     HTTP_COMMUNICATION_FAILURE = 1
     HTTP_INVALID_STATE = 2
     HTTP_PROCESSING_FAILED = 3
     OTHERS = 4 ).
li_client->RECEIVE(     "receives the HTTP RESPONSE
   EXCEPTIONS
     HTTP_COMMUNICATION_FAILURE = 1
     HTTP_INVALID_STATE = 2
     HTTP_PROCESSING_FAILED = 3
     OTHERS = 4 ).
lv_tmp = li_client->RESPONSE->GET_CDATA( ).
The code will allow you to call the stockquote webservice using GET
http://www.webservicex.net/stockquote.asmx?op=GetQuote
Your code is missing the request uri which is needed in a GET call.
Hope this helps,
Mark

Calling KM navigation iview from ABAP

Hi All,
I am trying to call the KM Navigation iview from ABAP webdynpro view. it is like implement the same functionality as currently available for Repository filters through ABAP coding. I have to create a new Folder in the KM and call the KM Navigation iview for that specific folder. I know KM has provided few new webservices which I can use to create a new folder in the KM repository but I am unable to open the KM navigation iview with the newly created folder through coding.
I am using the navigate_absolute Portal Navigation method to call the KM Navigation iview from ABAP code. Currently it is opening iview with the folder set as root folder in the iview property but I need to open it with the newly created folder through the code. The same sort of functionality is implemented from java code by passing the Business parameter with navigate_absolute method. The problem with ABAP code is that I don't know what is the exact format of the Business parameter to be passed.
In the java code the Business parameter is passed as
Uri=/documents/cprxrpm/46A73F1FEED21B0DE10000000A4241A8:DFM_450_MIT3_SAURABH/RIH/47B44774254208CCE10000000A4241A8:wonder-item-01 :WONDER-ITEM-01
Does anybody have idea how can i implement the same scenario in ABAP and what should be the format of the to be passed as Business Parameter from ABAP code ?
Regards,
Vikash

In the abap web dynpro view create an exit out bound plug with url as parameter.
In your wddoinit call the the url. The url can be accessed by previewing the km iview in content management. Hope this helps.

CALL A JAVA PROGRAM FROM ABAP -- NEED HELP

Hi all,
Can somebody tell me how to call a java xml code from an ABAP program? First let me know if at all, is it possible to call a java program from SAP that is from an ABAP executable progam?
Please suggest me in this. All your inputs in this is valuable to me and highly appreciated.
Thanks in advance,
Vaishnavi Varadarajan

Hi,
Previous explanation i gave is not correct.
ABAP web services expose the function modules outside R/3, so that other technologies like Java can consume that webservice and read the data in R/3 using the function module.
For your requirement, create a Java web service to read the XML. Consume this webservice in ABAP. This way you can read the XML from ABAP.
Regards
Srikanth KV.

Exposing WebService directly from ABAP Class not from BAPI

Hi guys,
is it possible ti expose a Webservice direct from an ABAP OO-Class.
I know the possebility to do it for RFC enabled Funktionmodules but I think it is no good coding style to call ABAP-OO-Methods using RFC-Module only for providing them as methods of an WebService...
Is there anyone who has exerience on that area ?
Thanks in advance.
Bast regards
André

Hi Micky,
thanks for your answer. But the WS-Call are OO codings and the class is OO coding. From my point of view it is not a good style using an RFC Functionmodule as "middleware" between OO-Classes.
However, if it is not possible I have to live with the possabilities SAP provides.
regards
André

Reading Webservice information from ABAP Program

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

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

Calling a webservice runtime from ABAP

Similar Messages

Maybe you are looking for