Service call to function module not fetching data

Hello Experts,
Today, I have started facing one more weird issue of the similar kind, I faced few weeks back.
Once my web dynpro application is loaded, on the click of button I make a service call to function module which brings me some data and that is being shown on the UI.
After doing few more service calls on the click of other buttons, when I click on the button initially clicked, service call is being made but no data is being returned.
I already debugged the code, made sure the parameters is being passed correctly to function module.
Regards,
Harsh

Hello Katrice,
I debugged to the hilt and found that standard function module 'ME_REL_ACTIVE' was returning sy-subrc non zero.
I cleared one variable after identifying it. Below is the code snippet:
    ld_read_t16fg = '(SAPLEBNF)READ_T16FG'.
    ASSIGN (ld_read_t16fg) TO <lst_read_t16fg>.
    IF <lst_read_t16fg> IS ASSIGNED AND <lst_read_t16fg> IS NOT INITIAL.
      CLEAR <lst_read_t16fg>.
    ENDIF.
    UNASSIGN <lst_read_t16fg>.
Regards,
Harsh

Similar Messages

Program making a RFC call to Function Module not working in background

Hi All,
I have an ABAP Program which is used to do a reconciliation check between the R/3 and BI system for Invoice Data. Please find below the details of the program flow:
1.     Program counts the number of records in the DSO table and aggregates the Net_Value based on the date range (passed as parameters)
2.     Program calls a Function Module (RFC Call) which counts the number of records in the R/3 table and aggregates the Net_Value for the same date range
3.     Function Module Passes back the count values and aggregated Net_Value to the program
4.     Program compares the count and aggregated Net_Value from EDWH and MSP systems and sends an email mentioning whether the counts match or not
However we are facing an issue.
Whenever, we execute the program in dialog mode, it works fine and fetches results within 5-6 minutes. However if we schedule the program to run in background (parameters through a variant), it gives no results even after running for over 3-4 hours. We tried figuring it out yesterday but could not come to any conclusion. Since there is a RFC call being to the function module, we were wondering if we need to specify some other parameter as well.
Thanks & Regards
Dharmendra

RFC Call is a procedure for executing remote enables function modules. It is done via the 'Remote Enabled' radio button on the function module's attribute screen.

Function Module to Fetch data of Vendor for Inbound Delivery at runtime

Hi All,
I am new to EWM. I am using BADI /SCWM/EX_DLV_DET_PROCTYPE method CHANGE_PROCTYPE to change process type of the inbound delivery as per some logic from a custom table. However the parameter Vendor is not available in IS_ITEM during inbound delivery creation. Vendor is one of the key fields in my table.
Does anyone know any solution/function modules to fetch vendor data for the inbound delivery at runtime. I know the database tables to fetch vendor but this works only once the inbound delivery is saved.
Thanks and Regards,
Vanessa Noronha

Hi All,
I am new to EWM. I am using BADI /SCWM/EX_DLV_DET_PROCTYPE method CHANGE_PROCTYPE to change process type of the inbound delivery as per some logic from a custom table. However the parameter Vendor is not available in IS_ITEM during inbound delivery creation. Vendor is one of the key fields in my table.
Does anyone know any solution/function modules to fetch vendor data for the inbound delivery at runtime. I know the database tables to fetch vendor but this works only once the inbound delivery is saved.
Thanks and Regards,
Vanessa Noronha

Generic datasource by function module to fetch data from multiple tables?

I'm writing a function module to fetch price, for generic datasource.
At first, extract test is OK. But InfoPackage never stop when loading data to PSA in BW.
And I find the example codes:
     OPEN CURSOR WITH HOLD S_CURSOR FOR
      SELECT (S_S_IF-T_FIELDS) FROM SFLIGHT
                               WHERE CARRID IN L_R_CARRID AND
                                     CONNID IN L_R_CONNID.
    ENDIF.                             "First data package ?
* Fetch records into interface table.
*   named E_T_'Name of extract structure'.
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
ENDIF.
There using Cursor to fetch data package by package, and raise exception NO_MORE_DATA to stop the loading process.
Now I fetch data from multiple tables, I don't think I can use Cursor.
Then How can I handle this?
Thanks a lot.

Thanks
IF IT_999[] IS INITIAL.
    SELECT A~KNUMH A~MATNR A~KSCHL VKORG VTWEG A~DATBI A~DATAB KBETR KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
      TABLE TP_DATA
        FROM A999 AS A
          INNER JOIN KONP AS B
              ON A~KNUMH = B~KNUMH
          INNER JOIN MARA AS C
             ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_999
                WHERE
*      A~KNUMH = IT_999-KNUMH AND
       ( ( A~KSCHL = 'ZPRC' AND VKORG = 'Z000' AND VTWEG = 'Z1' ) OR
                      ( A~KSCHL = 'ZPRD' AND VKORG = 'A000' AND VTWEG = 'Y3' ) ) AND
*                      A~DATBI >= SY-DATUM AND
                      LOEVM_KO = ''.
    SELECT A~KNUMH A~MATNR A~KSCHL VKORG VTWEG A~DATBI A~DATAB KBETR AS KHETR KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
      TABLE TP_DATA
        FROM A999 AS A
          INNER JOIN KONP AS B
              ON A~KNUMH = B~KNUMH
          INNER JOIN MARA AS C
             ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_999
                WHERE
*      A~KNUMH = IT_999-KNUMH AND
      A~KSCHL = 'ZPR3' AND A~VKORG = 'I000' AND
*                      DATBI >= SY-DATUM AND
                      LOEVM_KO = ''.
ENDIF.
IF IT_997[] IS INITIAL.
    SELECT A~KNUMH A~MATNR A~KSCHL VTWEG A~DATBI A~DATAB KBETR AS KHETR KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
      TABLE TP_DATA
        FROM A997 AS A
          INNER JOIN KONP AS B
              ON A~KNUMH = B~KNUMH
          INNER JOIN MARA AS C
             ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_997
                WHERE
*      A~KNUMH = IT_997-KNUMH      AND
      A~KSCHL = 'ZPRA' AND VTWEG = 'Y1' AND
*                      DATBI >= SY-DATUM AND
                  LOEVM_KO = ''.
ENDIF.
IF IT_996[] IS INITIAL.
    SELECT A~KNUMH A~MATNR A~KSCHL A~DATBI A~DATAB KBETR AS KHETR KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
       TABLE TP_DATA
         FROM A996 AS A
           INNER JOIN KONP AS B
               ON A~KNUMH = B~KNUMH
           INNER JOIN MARA AS C
              ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_996
                WHERE
*      A~KNUMH = IT_996-KNUMH AND
      A~KSCHL = 'ZPRB' AND
*                       DATBI >= SY-DATUM AND
      LOEVM_KO = ''.
ENDIF.
SELECT   MATNR     "u7269u6599u53F7u7801
           MEINH     "u4ED3u50A8u5355u4F4Du7684u5907u7528u8BA1u91CFu5355u4F4D
           UMREZ     "u57FAu672Cu8BA1u91CFu5355u4F4Du8F6Cu6362u5206u5B50
           UMREN     "u8F6Cu6362u4E3Au57FAu672Cu8BA1u91CFu5355u4F4Du7684u5206u6BCD
      FROM MARM
      INTO CORRESPONDING FIELDS OF TABLE IT_MARM
       FOR ALL ENTRIES IN TP_DATA
     WHERE MATNR = TP_DATA-MATNR AND MEINH = TP_DATA-KMEIN.
LOOP AT TP_DATA.
    IF TP_DATA-KPEIN NE 0.
      TP_DATA-KBETR = TP_DATA-KBETR / TP_DATA-KPEIN.
      TP_DATA-KHETR = TP_DATA-KHETR / TP_DATA-KPEIN.
    ENDIF.
    IF TP_DATA-KSCHL = 'ZPRA'.
*       TP_DATA-MEINH = 'ZI'.
*      TP_DATA-KSCHL = 'B4'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'CT'.
        TP_DATA-KHETR = TP_DATA-KHETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ENDIF.
    ELSEIF TP_DATA-KSCHL = 'ZPRB'.
*      TP_DATA-KSCHL = 'L0'.
*       TP_DATA-MEINH = 'ZI'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'BAG'.
        TP_DATA-KHETR = TP_DATA-KHETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ENDIF.
    ELSEIF TP_DATA-KSCHL = 'ZPRC' OR TP_DATA-KSCHL = 'ZPRD'.
*       TP_DATA-MEINH = 'ZI'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KHETR = TP_DATA-KBETR * '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'WZI'.
        TP_DATA-KBETR = TP_DATA-KBETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KHETR = TP_DATA-KBETR * '1.17'.
      ENDIF.
    ELSEIF TP_DATA-KSCHL = 'ZPR3'.
*      TP_DATA-KSCHL = 'B2'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'BAG'.
        TP_DATA-KHETR = TP_DATA-KHETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ENDIF.
    ENDIF.
    TP_DATA-MEINH = '01'.
    MODIFY TP_DATA.
E_T_DATA-MATNR =   TP_DATA-MATNR.
E_T_DATA-KSCHL =   TP_DATA-KSCHL.
E_T_DATA-KHETR =   TP_DATA-KHETR.
E_T_DATA-KBETR =   TP_DATA-KBETR.
E_T_DATA-KMEIN =   TP_DATA-KMEIN.
E_T_DATA-DATAB =   TP_DATA-DATAB.
E_T_DATA-DATBI =   TP_DATA-DATBI.
APPEND E_T_DATA.
    CLEAR WA_MARM1.
    CLEAR WA_MARM2.
ENDLOOP.
Edited by: Shen Peng on Oct 20, 2010 10:09 AM

Adobe Widgets -Function module not displaying data in flex

Hello All,
I am using a function module to obtain the data of the tables parameter. When i run in the adobe flex its not displaying the table data. I have written even the code also in the adobe flex.
I have set all the configurations and even set the RFC also.
Can anybody help me out in this issue.
I will reward you with points.
Thanks,

hi karan,
I hope that you are using the REST service from the sap widget foundation.
what type of error it displays?
code :
<mx:HTTPService id="sapService"
url="http://localhost:7531/SapMiddleTier/REST/ewcs/service/rfct" method="POST"/>
reference :
Adobe widget :(which is created using adobe flex,also the relevant article attached)
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/e00ca8a3-51aa-2a10-fdaf-97858e6acd12
thanks
jaideep
Edited by: Abesh Bhattacharjee on Feb 28, 2008 12:31 PM
Please do not ask for points. You will get them if you deserve them !

Function module to fetch data from table

Hi All,
I want to get the entries from the table 'arfcsstate' for a particular date. Is there a function module to get the same.
Thanks in advance.
Regards,
Anju

Hi,
You can use select query
Select * from arfcsstate into <Internal table name>
where date <give ur condition.>
if date is in selection screen than write
date in s_date.
Thanx
Ankur Sharma

Function module to fetch data from table SETLEAVES

Hi All,
We have a requirement to fetch the data from table SETLEAVES based on the setclass,subclass and group. As the table holds hierarchical data, Please let me know a FM which fetches all the hierarchical data from the table SETLEAVES.
Regards
Shiva

Try:
    exporting
      e_class                     = '0102'
      e_setid                     = setid
      e_kokrs                     = my_kokrs
      e_mandt                     = sy-mandt
      e_master_data               = 'XXX'
      e_structure                 = 'X X0200'
      e_replace_class             = space
      e_replace_unit              = space
      e_suffix                    = space
      e_old_line_level            = 1 "l_ol_level
    tables
      t_nodes                     = it_ceg_nodes
      t_values                    = it_ceg_values
    changing
      c_info                      = c_info
      c_overwrite                 = c_overwrite
    exceptions
      no_controlling_area         = 1
      no_chart_of_account         = 2
      different_controlling_areas = 3
      different_chart_of_accounts = 4
      set_not_found               = 5
      illegal_field_replacement   = 6
      illegal_table_replacement   = 7
      fm_raise                    = 8
      convert_error               = 9
      no_overwrite_standard_hier = 10
      no_bukrs_for_kokrs          = 11
      others                      = 12.
Rob

How to call a function module from debugger?

Hi all,
i just wanted to know whether we can call a function module from a debugger ,
if yes how ?

Hi Laxmikanth,
How ur going to call a function module which is not present in program???
In debugging mode u can change the values of variables,put break points and watch points,but i thnk its not possible to call a function module(not present in program) while debugging .
Please share with us if u have any solution...
Regards,
lakshman.

Calling a function module from APO Macro

Hi,
Can I call a function module from a macro directly without going through the user exit? If so, how should I pass the parameters to the function module? I don't have to get the results back to macro.
Regards

Hi Asokan - you can call a function module directly from a macro providing it is designed to be called from a macro. For example if you are in the Macrobuilder and use the menu path Edit -> Edit User Function then you will get a list of existing function modules that you can call directly by inserting a Operator/function into your macro. If you want to call a function module not listed in the User Function drop down list then you will either need the user exit or create a custom function module as a wrapper and register the wrapper function module in the Edit User Function menu path. Calling a function module will always return a value - but you can choose to ignore that value depending on how you build your macro.
Regards
Andy

Upload data from excel with vba by calling a function module

Hello all,
i have a problem with the function module "ALSM_EXCEL_TO_INTERNAL_TABLE". I will call this function module with vba to load data from excel to sap with a Buttonclick. I have copied this function module and set it remotable. But i can´t call it from excel.
Can you give me some tips how can i
upload data from excel with vba by click a button.
The problem seems the function: call method cl_gui_frontend_services=>clipboard_import in the function module, because when i comment this function call the vba-call is true but no results.
How can I call the function module correct with vba?
Thanks a lot for your tips!!!!
Chris
Message was edited by:
        Christoph Kirschner

HI
Uploading data directly from Excel file format
* Upload data direct from excel.xls file to SAP
REPORT ZEXCELUPLOAD.
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01,
            begcol TYPE i DEFAULT 1 NO-DISPLAY,
            begrow TYPE i DEFAULT 1 NO-DISPLAY,
            endcol TYPE i DEFAULT 100 NO-DISPLAY,
            endrow TYPE i DEFAULT 32000 NO-DISPLAY.
* Tick don't append header
PARAMETERS: kzheader AS CHECKBOX.
DATA: BEGIN OF intern OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern.
DATA: BEGIN OF intern1 OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern1.
DATA: BEGIN OF t_col OCCURS 0,
       col LIKE alsmex_tabline-col,
       size TYPE i.
DATA: END OF t_col.
DATA: zwlen TYPE i,
      zwlines TYPE i.
DATA: BEGIN OF fieldnames OCCURS 3,
        title(60),
        table(6),
        field(10),
        kz(1),
      END OF fieldnames.
* No of columns
DATA: BEGIN OF data_tab OCCURS 0,
       value_0001(50),
       value_0002(50),
       value_0003(50),
       value_0004(50),
       value_0005(50),
       value_0006(50),
       value_0007(50),
       value_0008(50),
       value_0009(50),
       value_0010(50),
       value_0011(50),
       value_0012(50),
       value_0013(50),
       value_0014(50),
       value_0015(50),
       value_0016(50),
       value_0017(50),
       value_0018(50),
       value_0019(50),
       value_0020(50),
       value_0021(50),
       value_0022(50),
       value_0023(50),
       value_0024(50),
       value_0025(50),
       value_0026(50),
       value_0027(50),
       value_0028(50),
       value_0029(50),
       value_0030(50),
       value_0031(50),
       value_0032(50),
       value_0033(50),
       value_0034(50),
       value_0035(50),
       value_0036(50),
       value_0037(50),
       value_0038(50),
       value_0039(50),
       value_0040(50),
       value_0041(50),
       value_0042(50),
       value_0043(50),
       value_0044(50),
       value_0045(50),
       value_0046(50),
       value_0047(50),
       value_0048(50),
       value_0049(50),
       value_0050(50),
       value_0051(50),
       value_0052(50),
       value_0053(50),
       value_0054(50),
       value_0055(50),
       value_0056(50),
       value_0057(50),
       value_0058(50),
       value_0059(50),
       value_0060(50),
       value_0061(50),
       value_0062(50),
       value_0063(50),
       value_0064(50),
       value_0065(50),
       value_0066(50),
       value_0067(50),
       value_0068(50),
       value_0069(50),
       value_0070(50),
       value_0071(50),
       value_0072(50),
       value_0073(50),
       value_0074(50),
       value_0075(50),
       value_0076(50),
       value_0077(50),
       value_0078(50),
       value_0079(50),
       value_0080(50),
       value_0081(50),
       value_0082(50),
       value_0083(50),
       value_0084(50),
       value_0085(50),
       value_0086(50),
       value_0087(50),
       value_0088(50),
       value_0089(50),
       value_0090(50),
       value_0091(50),
       value_0092(50),
       value_0093(50),
       value_0094(50),
       value_0095(50),
       value_0096(50),
       value_0097(50),
       value_0098(50),
       value_0099(50),
       value_0100(50).
DATA: END OF data_tab.
DATA: tind(4) TYPE n.
DATA: zwfeld(19).
FIELD-SYMBOLS: <fs1>.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            mask      = '*.xls'
            static    = 'X'
       CHANGING
            file_name = filename.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       EXPORTING
            filename                = filename
            i_begin_col             = begcol
            i_begin_row             = begrow
            i_end_col               = endcol
            i_end_row               = endrow
       TABLES
            intern                  = intern
       EXCEPTIONS
            inconsistent_parameters = 1
            upload_ole              = 2
            OTHERS                  = 3.
IF sy-subrc <> 0.
    WRITE:/ 'Upload Error ', SY-SUBRC.
ENDIF.
END-OF-SELECTION.
LOOP AT intern.
    intern1 = intern.
    CLEAR intern1-row.
    APPEND intern1.
ENDLOOP.
SORT intern1 BY col.
LOOP AT intern1.
    AT NEW col.
      t_col-col = intern1-col.
      APPEND t_col.
    ENDAT.
    zwlen = strlen( intern1-value ).
    READ TABLE t_col WITH KEY col = intern1-col.
    IF sy-subrc EQ 0.
      IF zwlen > t_col-size.
        t_col-size = zwlen.
*                          Internal Table, Current Row Index
        MODIFY t_col INDEX sy-tabix.
      ENDIF.
    ENDIF.
ENDLOOP.
DESCRIBE TABLE t_col LINES zwlines.
SORT intern BY row col.
IF kzheader = 'X'.
    LOOP AT intern.
      fieldnames-title = intern-value.
      APPEND fieldnames.
      AT END OF row.
        EXIT.
      ENDAT.
    ENDLOOP.
ELSE.
    DO zwlines TIMES.
      WRITE sy-index TO fieldnames-title.
      APPEND fieldnames.
    ENDDO.
ENDIF.
SORT intern BY row col.
LOOP AT intern.
    IF kzheader = 'X'
    AND intern-row = 1.
      CONTINUE.
    ENDIF.
    tind = intern-col.
    CONCATENATE 'DATA_TAB-VALUE_' tind INTO zwfeld.
    ASSIGN (zwfeld) TO <fs1>.
    <fs1> = intern-value.
    AT END OF row.
      APPEND data_tab.
      CLEAR data_tab.
    ENDAT.
ENDLOOP.
CALL FUNCTION 'DISPLAY_BASIC_LIST'
       EXPORTING
            file_name     = filename
       TABLES
            data_tab      = data_tab
            fieldname_tab = fieldnames.
*-- End of Program
<b>Excel Upload Alternative - KCD_EXCEL_OLE_TO_INT_CONVERT</b>
*Title : Excel Uploading
TYPES:   BEGIN OF t_datatab,
         col1(25) TYPE c,
         col2(30) TYPE c,
         col3(30) TYPE c,
         col4(30) TYPE c,
         col5(30) TYPE c,
         col6(30) TYPE c,
         col7(30) TYPE c,
         col8(30) TYPE c,
         col9(30) TYPE c,
         col10(30) TYPE c,
         col11(30)    TYPE c,
       END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab INITIAL SIZE 0,
      wa_datatab TYPE t_datatab.
Data : p_table type t_datatab occurs 0 with header line.
DATA : gd_scol   TYPE i VALUE '1',
       gd_srow   TYPE i VALUE '1',
       gd_ecol   TYPE i VALUE '256',
       gd_erow   TYPE i VALUE '65536'.
DATA: it_tab TYPE filetable,
      gd_subrc TYPE i.
field-symbols : <fs>.
*Selection screen definition
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename
               DEFAULT 'c:test.xls' OBLIGATORY.   " File Name
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tab.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title     = 'Select File'
      default_filename = '*.xls'
      multiselection   = ' '
    CHANGING
      file_table       = it_tab
      rc               = gd_subrc.
LOOP AT it_tab INTO p_file.
*    so_fpath-sign = 'I'.
*    so_fpath-option = 'EQ'.
*    append so_fpath.
ENDLOOP.
START-OF-SELECTION.
PERFORM upload_excel_file TABLES   it_datatab
                             USING   p_file
                                     gd_scol
                                     gd_srow
                                     gd_ecol
                                     gd_erow.
* END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
    WRITE:/ wa_datatab-col1,
            wa_datatab-col2,
            wa_datatab-col3,
            wa_datatab-col4,
            wa_datatab-col5,
            wa_datatab-col6,
            wa_datatab-col7,
            wa_datatab-col8,
            wa_datatab-col9,
            wa_datatab-col10,
            wa_datatab-col11.
ENDLOOP.
*&      Form UPLOAD_EXCEL_FILE
*       upload excel spreadsheet into internal table
*      -->P_TABLE    Table to return excel data into
*      -->P_FILE     file name and path
*      -->P_SCOL     start column
*      -->P_SROW     start row
*      -->P_ECOL     end column
*      -->P_EROW     end row
FORM upload_excel_file TABLES   p_table
                       USING    p_file
                                p_scol
                                p_srow
                                p_ecol
                                p_erow.
DATA : lt_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
* Has the following format:
*             Row number   | Colum Number   |   Value
*      i.e.     1                 1             Name1
*               2                 1             Joe
DATA : ld_index TYPE i.
* Note: Alternative function module - 'ALSM_EXCEL_TO_INTERNAL_TABLE'
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename                = p_file
      i_begin_col             = p_scol
      i_begin_row             = p_srow
      i_end_col               = p_ecol
      i_end_row               = p_erow
    TABLES
      intern                  = LT_INTERN
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
IF sy-subrc <> 0.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'Error Uploading file'.
    EXIT.
ENDIF.
IF lt_intern[] IS INITIAL.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'No Data Uploaded'.
    EXIT.
ELSE.
    SORT lt_intern BY row col.
    LOOP AT lt_intern.
     MOVE lt_intern-col TO ld_index.
     assign component ld_index of structure
     p_table to <fs>.
move : lt_intern-value to <fs>.
*     MOVE lt_intern-value TO p_table.
      AT END OF row.
        APPEND p_table.
        CLEAR p_table.
      ENDAT.
    ENDLOOP.
ENDIF.
ENDFORM.                    "UPLOAD_EXCEL_FILE
Regards
Pavan

Is it possible to call Normal function Module from WD4A , Not RFCs

Is it possible to call Normal function Module(FM) from WebDynPro for ABAP , Not RFCs

There is no difference, unless you are specifically calling the RFC to connect to another system. If so, then you need to add the DESTINATION keyword to the function call and specify the destination name. This name must be defined in SM59. But, if you are not going to another system, you can call the RFC the same way you call the regular function module.
REgards,
Rich Heilman

Type conflict when calling a function module (field length)

Dear All,
            I am getting this following error while executing: Type conflict when calling a function module (field length)
This is piece of coding i have writern in my action button.
method SEARCH_MATERIAL .
data:
        node_mat_input TYPE REF TO if_wd_context_node,
        node_mat_output TYPE REF TO if_wd_context_node,
        material TYPE BAPIMATDET-MATERIAL,
        itab TYPE TABLE OF BAPIMATDOA.
node_mat_input = wd_context->get_child_node( 'NODE_MAT_INPUT' ).
node_mat_output = wd_context->get_child_node( 'NODE_MAT_OUTPUT' ).
node_mat_input->get_attribute( EXPORTING name = 'MATERIAL'
                                 IMPORTING value = material ).
CALL FUNCTION 'BAPI_MATERIAL_GET_DETAIL'
    EXPORTING
      material                    = material
    PLANT                       = plant
    VALUATIONAREA               =
    VALUATIONTYPE               =
    MATERIAL_EVG                =
   IMPORTING
     MATERIAL_GENERAL_DATA       = itab
    RETURN                      =
    MATERIALPLANTDATA           =
    MATERIALVALUATIONDATA       =
node_mat_output->bind_table( itab ).
endmethod.
Attributes are:
Node name = INPUT its structure is BAPIMATDET
INPUT attributes = MATERIAL of type BAPIMATDET-MATERIAL
Thanks,
Gopi.

Hi Amit,
           I have used service call to fetch records from that bapi..
The following is the code generated by service call:-
METHOD execute_bapi_material_get_deta .
declarations for context navigation
DATA:
    node_bapi_material_get_de   TYPE REF TO if_wd_context_node,
     node_exporting   TYPE REF TO if_wd_context_node,
     node_material_general_dat   TYPE REF TO if_wd_context_node,
     node_importing   TYPE REF TO if_wd_context_node,
      lri_element    TYPE REF TO if_wd_context_element.
declarations for fuba parameters
data:
    stru_c_material_general_dat    TYPE if_componentcontroller=>element_material_general_dat.
DATA:
    attr_material    TYPE bapimatdet-material,
    attr_plant    TYPE bapimatall-plant.
get all involved child nodes
node_bapi_material_get_de = wd_context->get_child_node( `BAPI_MATERIAL_GET_DE` ).
node_exporting = node_bapi_material_get_de->get_child_node( `EXPORTING` ).
node_material_general_dat = node_exporting->get_child_node( `MATERIAL_GENERAL_DAT` ).
node_importing = node_bapi_material_get_de->get_child_node( `IMPORTING` ).
get input from context
node_importing->get_attribute(    EXPORTING      name = `MATERIAL`
                                                     IMPORTING      value = attr_material ).
node_importing->get_attribute( EXPORTING       name = `PLANT`
                                                          IMPORTING       value = attr_plant ).
the invocation - errors are always fatal !!!
CALL FUNCTION 'BAPI_MATERIAL_GET_DETAIL'
    EXPORTING
      material =                        attr_material
      plant =                           attr_plant
"      valuationarea =                   wd_This->Valuationarea
"      valuationtype =                   wd_This->Valuationtype
"      material_Evg =                    wd_This->Material_Evg
    IMPORTING
      material_general_data =           stru_c_material_general_dat
"      return =                          wd_This->Return
"      materialplantdata =               wd_This->Materialplantdata
"      materialvaluationdata =           wd_This->Materialvaluationdat
node_material_general_dat->bind_structure( stru_c_material_general_dat[] ).
ENDMETHOD.
                             but the problem is I am getting the following error while compiling...
" stru_c_materialplantdata " is not an internal table - the " OCCOURS n" specification is missing.
Thanks,
Gopi.
Edited by: Yegalaivan on Nov 18, 2009 8:30 AM

Function Module not extracting records when InfoPackaged is executed

Hi,
I'm using a Function module for extracting data. The DataSource is working fine in RSA3 with a selection criteria. But when i schedule the infopackage with the same selections in the data selection tab, Its not getting me any records into BW. In the Details Tab i get the message "Error occurred in the data selection" . I guess there is a problem with the data selection. Pasted below is the code i'm using for extraction. Can anyone please let me know if there is any issue with the code.
Also how do we pass on the value of I_MAXSIZE into the function module, the remaining parameters get the values from BW. And can anyone please explain me the concept of the "s_counter_datapakid" and when it should be incremented and where it should be located in the code?
Thanks,
AM
Auxiliary Selection criteria structure
DATA: l_s_select TYPE srsc_s_select.
Maximum number of lines for DB table
STATICS: s_s_if TYPE srsc_s_if_simple,
counter
          s_counter_datapakid LIKE sy-tabix,
cursor
          s_cursor TYPE cursor.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
IF i_initflag = sbiwa_c_flag_on.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
Check DataSource validity
    CASE i_dsource.
      WHEN 'XXXXX'.
      WHEN OTHERS.
this is a typical log call. Please write every error message like this
        log_write 'E'                  "message type
                  'R3'                 "message class
                  '009'                "message number
                  i_dsource   "message variable 1
                  ' '.                 "message variable 2
        RAISE error_passed_to_mess_handler.
    ENDCASE.
    APPEND LINES OF i_t_select TO s_s_if-t_select.
Fill parameter buffer for data extraction calls
    s_s_if-requnr    = i_requnr.
    s_s_if-dsource = i_dsource.
    s_s_if-maxsize   = i_maxsize.
Fill field list table for an optimized select statement
(in case that there is no 1:1 relation between InfoSource fields
and database table fields this may be far from beeing trivial)
    APPEND LINES OF i_t_fields TO s_s_if-t_fields.
ELSE.
Data transfer: First Call      OPEN CURSOR + FETCH
               Following Calls FETCH only
First data package -> OPEN CURSOR
    IF s_counter_datapakid = 0.
      g_first = 'X'.
Fill range tables BW will only pass down simple selection criteria
of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.
      LOOP AT s_s_if-t_select INTO l_s_select WHERE fieldnm = 'BWLVS'.
        IF l_s_select-low <> '101' AND
           l_s_select-low <> '109'.
          RAISE invalid_movement_type.
        ELSE.
          MOVE-CORRESPONDING l_s_select TO r_im_bwlvs.
          APPEND r_im_bwlvs.
        ENDIF.
      ENDLOOP.
      LOOP AT s_s_if-t_select INTO l_s_select WHERE fieldnm = 'BEGDA'.
        MOVE-CORRESPONDING l_s_select TO r_im_begda.
        r_im_begda-low0(4) = l_s_select-low6(4).
        r_im_begda-low4(2) = l_s_select-low0(2).
        r_im_begda-low6(2) = l_s_select-low3(2).
        APPEND r_im_begda.
      ENDLOOP.
      LOOP AT s_s_if-t_select INTO l_s_select WHERE fieldnm = 'ENDDA'.
        MOVE-CORRESPONDING l_s_select TO r_im_endda.
        r_im_endda-low0(4) = l_s_select-low6(4).
        r_im_endda-low4(2) = l_s_select-low0(2).
        r_im_endda-low6(2) = l_s_select-low3(2).
        APPEND r_im_endda.
      ENDLOOP.
*Select from table ltak into internal table i_ltak the following fields.
*Condition: where bwlvs = import bwlvs & endat is >= import begda and
<= import endda.
      READ TABLE r_im_begda INDEX 1.
      IF sy-subrc NE 0.
        RAISE blank_date_invalid.
      ELSE.
        IF r_im_begda-low IS INITIAL.
          RAISE blank_date_invalid.
        ENDIF.
      ENDIF.
      READ TABLE r_im_endda INDEX 1.
      IF sy-subrc NE 0.
        RAISE blank_date_invalid.
      ELSE.
        IF r_im_endda-low IS INITIAL.
          RAISE blank_date_invalid.
        ENDIF.
      ENDIF.
      IF NOT r_im_endda-low IS INITIAL
        AND r_im_begda-low > r_im_endda-low.
        RAISE invalid_date.
      ENDIF.
      r_endat-sign = 'I'.
      r_endat-option = 'BT'.
      r_endat-low = r_im_begda-low.
      r_endat-high = r_im_endda-low.
      APPEND r_endat.
*-- Get data from the tables
      PERFORM get_data.
*-- Populate the extract structure with data
      PERFORM write_data.
*-- Fill Export able with the extracted data
      e_t_data[] = i_zbipicprd2[].
    ENDIF.                             "First data package ?
    IF g_first EQ 'X'.
      CLEAR g_first.
    ELSE.
*-- This is important to prevent endless loop.
      RAISE no_more_data.
    ENDIF.
s_counter_datapakid = s_counter_datapakid + 1.
ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.

The load is running successfully but its not fetching any records into BW.
In the Status tab, Step by Step Analysis the following three steps are red:
Does selectable data exist in the source system? (Red)
Data selection successfully started ? (Red)
Data selection successfully finished ? (Red)
and the below is the Analysis
Diagnosis
    The data request was a full update.
    o   In this case, the corresponding table in the source system does not
            contain any data.
    o   System Response
            Info IDoc received with status 8.
            Procedure
Check the data basis in the source system.
But i have data in R/3 and i'm able to extract it using RSA3

Web Services from ABAP function modules return values- leading zeros

I am using several web services from SAP CRM (5.0) that were created from Function modules ( I am assuming that that they are in ABAP).
I can call the web services fine and they work as expected, but I am seeing a lot of leading zeros in the return values of fields in tables from the Web service.
The ABAP ers are telling me that they cannot see the leading zeros.
So my question is where these are appended to the values in the whole process. When I execute the Function Module in SAP CRM from transaction SE37 I can see the leading zeros. So I think that this is something that has to be handled by the ABAP ers and not in the client consuming the web service.
Are the functions in SAP CRM that can remove leading zeros for fields in a table (that is an export parameter?)
Jawahar

Hello Jawahar
If you run your (RFC-enabled) function modules using the SAP-GUI (i.e. in dialog) then the GUI automatically replaces leading zero when the function module returns any data. However, calling the same function module remotely you will always see these leading zeros.
These so-called conversion exits are defined as attribute of domains in the ABAP dictionary. If the function module used for the WebService is a standard fm then you have little chances to get rid of the leading zero. Perhaps the WebService has some attribute to suppress conversion exits or activate them when retrieving the data.
Regards,
Uwe

Function module not working

Hi All,
I have created a function module it is working fine by executing it self,when I am calling it into any program it is not working it means it is not fetching data from table I passed correct parameters I don't know what was the problem any one can help me in this.
Thanks&regds,
Sree.

There is no leading zeros here I am giving my funtion module code.
*function zmm_vendor.
""Local Interface:
*" IMPORTING
*"     REFERENCE(P_VENDOR) TYPE LFA1-LIFNR
*" TABLES
*"      P_VENDOR_DATA STRUCTURE ZVENDOR_DATA
tables : lfa1,lfm1.
data flag(1) type c.
types : begin of ty_lfm1,
        lifnr like lfm1-lifnr,
        "ekorg LIKE lfm1-ekorg,
        "erdat LIKE lfm1-erdat,
        ernam like lfm1-ernam,
        lfabc like lfm1-lfabc,
        waers like lfm1-waers,
        minbw like lfm1-minbw,
        webre like lfm1-webre,
        kalsk like lfm1-kalsk,
        ekgrp like lfm1-ekgrp,
        lipre like lfm1-lipre,
        end of ty_lfm1.
types : begin of ty_lfa1,
        lifnr like lfa1-lifnr,
        name1 like lfa1-name1,
        ort01 like lfa1-ort01,
        ort02 like lfa1-ort02,
        adrnr like lfa1-adrnr,
        end of ty_lfa1.
types : begin of ty_adr6,
        addrnumber like adr6-addrnumber,
        smtp_addr like adr6-smtp_addr,
        end of ty_adr6.
types : begin of ty_lfb1,
        akont like lfb1-akont,
        zwels like lfb1-zwels,
        zterm like lfb1-zterm,
        fdgrv like lfb1-fdgrv,
        reprf like lfb1-reprf,
         end of ty_lfb1.
types : begin of ty_display,
        sel,
        lifnr like lfm1-lifnr,
        ekorg like lfm1-ekorg,
        erdat like lfm1-erdat,
        ernam like lfm1-ernam,
        lfabc like lfm1-lfabc,
        smtp_addr like adr6-smtp_addr,
        waers like lfm1-waers,
        minbw like lfm1-minbw,
        webre like lfm1-webre,
        kalsk like lfm1-kalsk,
        ekgrp like lfm1-ekgrp,
        lipre like lfm1-lipre,
        name1 like lfa1-name1,
        ort01 like lfa1-ort01,
        ort02 like lfa1-ort02,
        akont like lfb1-akont,
        zwels like lfb1-zwels,
        zterm like lfb1-zterm,
        fdgrv like lfb1-fdgrv,
        reprf like lfb1-reprf,
        end of ty_display.
         INTERNAL TABLES DECLARATION
data: t_lfm1 type standard table of ty_lfm1 with header line,
      t_lfa1 type standard table of ty_lfa1 with header line,
      t_display type standard table of ty_display with header line,
       t_lfb1 type standard table of ty_lfb1 with header line,
       t_adr6 type standard table of ty_adr6 with header line.
         WORK AREAS DECLARATION
data: wa_lfm1 type ty_lfm1,
      wa_lfa1 type ty_lfa1,
      wa_adr6 type ty_adr6,
      wa_lfb1 type ty_lfb1,
      wa_display type ty_display.
select lifnr
         ekorg
         erdat
         ernam
         lfabc
         waers
         minbw
         webre
         kalsk
         ekgrp
         lipre from lfm1
         into corresponding fields of table t_lfm1
         where lifnr = p_vendor.
    if t_lfm1[] is not initial.
select lifnr
         name1
         ort01
         ort02
         adrnr from lfa1
         into corresponding fields of table t_lfa1
         for all entries in t_lfm1
         where lifnr = t_lfm1-lifnr.
     endif.
    if t_lfm1[] is not initial.
    select addrnumber smtp_addr from adr6
           into table t_adr6
           for all entries in t_lfa1
           where addrnumber = t_lfa1-adrnr.
      endif.
      if t_lfm1[] is not initial.
    select akont
           zwels
           zterm
           fdgrv
           reprf from lfb1
           into table t_lfb1
           for all entries in t_lfm1
           where lifnr = t_lfm1-lifnr.
      endif.
loop at t_lfm1 into wa_lfm1.
    move wa_lfm1-lifnr to t_display-lifnr.
     "move   wa_lfm1-ekorg to wa_display-ekorg.
    " move   wa_lfm1-erdat to wa_display-erdat.
     move   wa_lfm1-lfabc to t_display-lfabc.
     move   wa_lfm1-waers to t_display-waers.
     move   wa_lfm1-minbw to t_display-minbw.
     move   wa_lfm1-webre to t_display-webre.
     move   wa_lfm1-kalsk to t_display-kalsk.
     move   wa_lfm1-ekgrp to t_display-ekgrp.
     move   wa_lfm1-lipre to t_display-lipre.
     "append wa_display to t_display.
read table t_lfa1 into wa_lfa1 index 1 .
if sy-subrc = 0.
    move wa_lfa1-name1 to t_display-name1.
    move wa_lfa1-ort01 to t_display-ort01.
    move wa_lfa1-ort02 to t_display-ort02.
   endif.
read table t_adr6 into wa_adr6 index 1 .
if sy-subrc = 0.
    move wa_adr6-smtp_addr to t_display-smtp_addr.
endif.
read table t_lfb1 into wa_lfb1 index 1 .
if sy-subrc = 0.
    move wa_lfb1-akont to t_display-akont.
    move wa_lfb1-zwels to t_display-zwels.
    move wa_lfb1-zterm to t_display-zterm.
    move wa_lfb1-fdgrv to t_display-fdgrv.
    move wa_lfb1-reprf to t_display-reprf.
endif.
append   t_display.
exit.
"clear wa_display.
"clear t_display.
endloop.
delete adjacent duplicates from t_display comparing lifnr.
     move t_display-lifnr to p_vendor_data-lifnr.
     "move   t_display-ekorg to P_VENDOR_DATA-ekorg.
    " move   t_display-erdat to P_VENDOR_DATA-erdat.
     move   t_display-lfabc to p_vendor_data-lfabc.
     move   t_display-waers to p_vendor_data-waers.
     move   t_display-minbw to p_vendor_data-minbw.
     move   t_display-webre to p_vendor_data-webre.
     move   t_display-kalsk to p_vendor_data-kalsk.
     move   t_display-ekgrp to p_vendor_data-ekgrp.
     move   t_display-lipre to p_vendor_data-lipre.
     move   t_display-name1 to p_vendor_data-name1.
     move   t_display-ort01 to p_vendor_data-ort01.
     move   t_display-ort02 to p_vendor_data-ort02.
     move   t_display-smtp_addr to p_vendor_data-smtp_addr.
     move   t_display-akont to p_vendor_data-akont.
     move   t_display-zwels to p_vendor_data-zwels.
     move   t_display-zterm to p_vendor_data-zterm.
     move   t_display-fdgrv to p_vendor_data-fdgrv.
     move   t_display-reprf to p_vendor_data-reprf.
     append p_vendor_data.
endfunction.*
but after calling this into my program it is not working here is my program.
report ZTEST.
parameters : zvendor like lfm1-lifnr.
data : begin of ty_display occurs 0,
       lifnr like lfm1-lifnr,
       ekorg like lfm1-ekorg,
       erdat like lfm1-erdat,
       ernam like lfm1-ernam,
       lfabc like lfm1-lfabc,
       smtp_addr like adr6-smtp_addr,
waers like lfm1-waers,
       minbw like lfm1-minbw,
       webre like lfm1-webre,
       kalsk like lfm1-kalsk,
       ekgrp like lfm1-ekgrp,
       lipre like lfm1-lipre,
       name1 like lfa1-name1,
       ort01 like lfa1-ort01,
       ort02 like lfa1-ort02,
       akont like lfb1-akont,
      zwels like lfb1-zwels,
      zterm like lfb1-zterm,
      fdgrv like lfb1-fdgrv,
      reprf like lfb1-reprf,
      end of ty_display.
CALL FUNCTION 'ZMM_VENDOR'
EXPORTING
p_vendor            = zvendor
tables
p_vendor_data       = ty_display
loop at ty_display.
write : / ty_display-ort01.
endloop.
Thanks and Regds,
Sree.

Service call to function module not fetching data

Similar Messages

Maybe you are looking for