Recrods not extracted into BW

Question

Hi,
I'm using a Function Module for extracting data from R/3. I tested the DataSource  using RSA3, its working fine and pulling records for the specified criteria. Now, I'm trying to pull data into BW by specifying the same selection criteria as in RSA3. The load is successful but its not pulling any records and I get the below message in Status Tab
No data available
Diagnosis
The data request was a full update.
In this case, the corresponding table in the source system does not
contain any data.
System Response
Info IDoc received with status 8.
Procedure
Check the data basis in the source system.
Message in "Step By Step" Analysis
Diagnosis
     The data request was a full update.
     o   In this case, the corresponding tab
             contain any data.
     o   System Response
             Info IDoc received with status
             Procedure
Check the data basis in the source system.
Can anyone please tell me why the records are not pulled into BW even though I have the records in the source system and I'm able to extract those records in RSA3
Thank you!
AM

Answer 1

Hi Ajeet,
I'm pasting the code below can you please check if its missing something.
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 'XXXXXX'.
      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 = 'fieldname'.
        IF l_s_select-low <> '111' AND
           l_s_select-low <> '222'.
          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 = 'BEG'.
        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 = 'END'.
        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.
    describe table e_t_data lines s_counter_datapakid.
   s_counter_datapakid = s_counter_datapakid + 1.
  ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.
Thanks,
AM