Call a VB EXE from ABAP

Hi all,
I would like to call a Function (with 3 Param) of a given VB-EXE or VB-Script from my ABAP.
Is there anyone who can help me ??
Thanks

Hi,
Check these links :
/people/thomas.jung3/blog/2004/09/01/using-net-windows-controls-in-the-abap-control-framework
http://www.codeproject.com/dotnet/SapDBReader.asp
how to execute SalesOrder into R/3 DB using VBscript
Sample code in ASP to connect SAP?
Regards
Appana

Similar Messages

  • Execute c:\abc\myprogram.exe from abap

    Hi,
    How to execute my executable file c:\abc\myprogram.exe from abap. And I want to make sure myprogram.exe is finished execution before continue to the next line in abap. Can paste some code sample?
    Thanks.

    Hi friend,
    Use FM 'GUI_RUN'.
    Try this code:
    REPORT  zdemofun .
    CALL FUNCTION 'GUI_RUN'
    EXPORTING
        command   = 'c:\abc\myprogram.exe'.
    This will exactly help u.
    Thanks..

  • 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.

  • 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 an existing webservice from ABAP ?

    I am trying to call an existing webservice from abap and cannot seem to get it right.
    We are on 640.
    What are the steps I need to follow ?
    The address of the test wsdl is http://obcbox:50000/EMWSApp/DCCGen?wsdl
    and http://obcbox:50000/wsnavigator/jsps/explorer.jsp?localWS=RU1XU0FwcC9zYXAuY29tJTJGRU1XU0FwcEVhci9FTVdTYXBwLmphcg%3D%3D
    I need to be able to send data to the dccGenerator so it can do its work.
    Any help would be greatly appreciated.
    Cheers Steve.

    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.
    * Author : Raja T
    * Company :******
    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 .
    Message was edited by:
            Raja T

  • 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.

  • Calling C code (exe ) from Java program

    Hi all,
    kindly help in giving a solution for calling C code (exe ) from Java program, i will be very thank full to u if any body can help in sending a code example
    bye

    You might need to consume the io operations on the Process...
    An excerpt from java.lang.Process:
    All its standard io (i.e. stdin, stdout, stderr) operations will be redirected to the parent process through three streams (Process.getOutputStream(), Process.getInputStream(), Process.getErrorStream()). The parent process uses these streams to feed input to and get output from the subprocess. Because some native platforms only provide limited buffer size for standard input and output streams, failure to promptly write the input stream or read the output stream of the subprocess may cause the subprocess to block, and even deadlock.

  • Calling separate LSMW steps from ABAP program

    Hai all,
    anybody know if I can call sepearte LSWM step from a ABAP programm,
    I only need to:
    Specify Files
    Import Data
    Convert Data
    Create Batch Input Session
    Run Batch Input Session
    Need this steps so i can provide backoffice user a tool which imports data using  predefined  LWSM.
    Grtz
    Richard
    Edited by: Richard van Veen on Jun 7, 2010 1:15 PM

    I made a lsmw and after completing all steps i tested step 080/100/300 and 310 from se37, it seems to work fine, i will update when completed
    010      Maintain Object Attributes       OBJ     /SAPDMC/LSM_OBJ_ATTRIBUTES
    020      Maintain Source Structures      OBJ     /SAPDMC/LSM_OBJ_SOURCE_STRUCS
    030      Maintain Source Fields OBJ     /SAPDMC/LSM_OBJ_SOURCE_FIELDS
    040      Maintain Structure Relations     OBJ     /SAPDMC/LSM_OBJ_STRUCT_RELATNS
    050      Maintain Field Mapping and Conversion Rules OBJ     /SAPDMC/LSM_OBJ_FIELDMAPPING
    070      Maintain Fixed Values, Translations, User-Defined Routines    RUL            /SAPDMC/LSM_RUL_ADMINISTRATION
    080      Specify Files    OBJ     /SAPDMC/LSM_OBJ_FILES_SPECIFY
    090      Assign Files      OBJ     /SAPDMC/LSM_OBJ_FILES_ASSIGN
    110      Import Data     EXE     /SAPDMC/LSM_EXE_READPROG_RUN
    120      Display Imported Data DSP     /SAPDMC/LSM_DSP_READ_DATA_SHOW
    130      Convert Data   EXE     /SAPDMC/LSM_EXE_CONVPROG_RUN
    140      Display Converted Data           DSP     /SAPDMC/LSM_DSP_CONV_DATA_SHOW
    300      Create Batch Input Session      EXE     /SAPDMC/LSM_EXE_BI_PROGRAM_RUN
    310      Run Batch Input Session          EXE     /SAPDMC/LSM_EXE_BI_SESSION_RUN
    600      Frame Program for Periodic Data Transfer      EXE     /SAPDMC/LSM_EXE_INTERFACE

  • 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.

Maybe you are looking for

  • Time Machine and File Permissions

    'Twere I to rate this question's technicality on a scale of 1 through 10, it would rate 8. Just warning you. Unix people will be especially useful for this. Okay, so, before the problems started, my hard drive had three partitions. One for OS X, one

  • How can I use a different Apple ID withthe App Store?

    When I access the App Store from my iPhone 3G it asks me to enter the password for an Apple ID. How can I use a different Apple ID with the App Store?

  • How to set different renderers to different cells in same column of JTable?

    Hello Friends, I need your help again... Does any body knows, how to set different renderer's for different cells of same column in JTable..?? For ex. Col1 Col2 Col3 Col4 A       A       A      A A       A       A      B A       A       A      C A   

  • N97 Wifi+bluetooth Problems

    i have a 1-2 year old (original) n97 recently the wifi has gotten soooo weak i have to about 500cm close to the router to connect (other phones work perfectly with router) and also the bluetooth wont work anymore when i try to enable bluetooth it say

  • Creating new folder ripple effect in other folders

    I was in the RoboHelp 7 Project Manager pod. The HTML Files (Topics) folder was highlighted. I right-clicked and selected New > Folder. I named the new folder Assets and pressed Enter to create the folder. All on its own, RH created an Assets folder