Zero records in generic extractor

Question

Dear all ,
I have created  a generic extrator with function module but there are zero records which are getting extracted.I am able to extract records if I execute only the function module.
Below is the code for the same.*
FUNCTION ZGET_CUST_SALP .
""Local Interface:
*"  IMPORTING
*"     VALUE(I_REQUNR) TYPE  SRSC_S_IF_SIMPLE-REQUNR
*"     VALUE(I_DSOURCE) TYPE  SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     VALUE(I_MAXSIZE) TYPE  SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     VALUE(I_INITFLAG) TYPE  SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*"     VALUE(I_READ_ONLY) TYPE  SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*"     VALUE(I_REMOTE_CALL) TYPE  SBIWA_FLAG DEFAULT SBIWA_C_FLAG_OFF
*"  TABLES
*"      I_T_SELECT TYPE  SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE  ZKN_VP OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
Example: DataSource for table ZKN_VP
  TABLES: ZKN_VP.
Auxiliary Selection criteria structure
  DATA: L_S_SELECT TYPE SRSC_S_SELECT.
  data : begin of t_tab1 occurs 0,
           kunnr like kna1-kunnr,
           land1 like kna1-land1,
           PERNR like knvp-PERNR,
           end of t_tab1.
  data : begin of t_knvv occurs 0,
         kunnr like knvv-kunnr,
         vkorg like knvv-vkorg,
         VTWEG like knvv-VTWEG,
         spart like knvv-spart,
         end of t_knvv.
  data : begin of t_knvp_kunn2 occurs 0,
          kunnr like knvp-kunnr,
          kunn2 like knvp-kunn2,
          vkorg like knvv-vkorg,
          VTWEG like knvv-VTWEG,
          spart like knvv-spart,
          end of t_knvp_kunn2.
  data : begin of t_knvp_pernr occurs 0,
          kunnr like knvp-kunnr,
          pernr like knvp-pernr,
          vkorg like knvv-vkorg,
          VTWEG like knvv-VTWEG,
          spart like knvv-spart,
          end of t_knvp_pernr.
  data : begin of t_knvp_p_k occurs 0,
       kunnr like knvp-kunnr,
       pernr like knvp-pernr,
       vkorg like knvv-vkorg,
       VTWEG like knvv-VTWEG,
       spart like knvv-spart,
       end of t_knvp_p_k.
  data : IS_BW_CUST1_w like zkn_vp occurs 0 with header line.
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,
          S_CURSOR1 TYPE CURSOR,
          S_CURSOR2 TYPE CURSOR.
Select ranges
  RANGES: L_R_KUNNR  FOR KNA1-KUNNR.
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 'ZGET_CUST_SALP_ATTR'.
      WHEN OTHERS.
        IF 1 = 2. MESSAGE E009(R3). ENDIF.
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.                 "Initialization mode or data extraction ?
Data transfer: First Call      OPEN CURSOR + FETCH
               Following Calls FETCH only
First data package -> OPEN CURSOR
    IF S_COUNTER_DATAPAKID = 0.
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 = 'KUNNR'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_KUNNR.
        APPEND L_R_KUNNR.
      ENDLOOP.
     LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CONNID'.
       MOVE-CORRESPONDING L_S_SELECT TO L_R_CONNID.
       APPEND L_R_CONNID.
     ENDLOOP.
Determine number of database records to be read per FETCH statement
from input parameter I_MAXSIZE. If there is a one to one relation
between DataSource table lines and database entries, this is trivial.
In other cases, it may be impossible and some estimated value has to
be determined.
******Get Customer Number from KNA1 Table
      OPEN CURSOR WITH HOLD S_CURSOR FOR
      SELECT kunnr FROM KNA1
                               WHERE KUNNR  IN L_R_KUNNR.
      fetch next cursor s_cursor APPENDING corresponding fields of table t_tab1
      PACKAGE SIZE S_S_IF-MAXSIZE.
      CLOSE CURSOR S_CURSOR.
******Get Customer Details from KNVV Table
      OPEN CURSOR WITH HOLD  S_CURSOR1  FOR
      SELECT kunnr vkorg VTWEG spart  FROM KNVV for all entries in t_tab1
      where
      KUNNR = t_tab1-kunnr.
      fetch next cursor s_cursor1 APPENDING corresponding fields of table t_knvv
      PACKAGE SIZE S_S_IF-MAXSIZE.
      CLOSE CURSOR S_CURSOR1.
******Get Customer Partner Function Details from KNVP Table for ship to party.
      OPEN CURSOR WITH HOLD  S_CURSOR2  FOR
  select kunnr kunn2 vkorg VTWEG spart from knvp for all entries in t_knvv
    where kunnr = t_knvv-kunnr and vkorg = t_knvv-vkorg
   and VTWEG = t_knvv-VTWEG and spart = t_knvv-spart and parvw = 'WE'.
      fetch next cursor s_cursor2 APPENDING corresponding fields of table t_knvp_kunn2
            PACKAGE SIZE S_S_IF-MAXSIZE.
      CLOSE CURSOR S_CURSOR2.
      delete adjacent duplicates from t_knvp_kunn2 comparing kunnr.
******Get Customer Partner Function Details from KNVP Table for Sales Personnel.
      OPEN CURSOR WITH HOLD S_CURSOR2 FOR
      select kunnr pernr vkorg VTWEG spart from knvp for all entries in t_knvv
      where kunnr = t_knvv-kunnr and vkorg = t_knvv-vkorg
      and VTWEG = t_knvv-VTWEG and spart = t_knvv-spart and parvw = 'ZR'.
    ENDIF.                             "First data package ?
    fetch next cursor s_cursor2 APPENDING corresponding fields of table t_knvp_pernr
       PACKAGE SIZE S_S_IF-MAXSIZE.
    CLOSE CURSOR S_CURSOR2.
    Loop at t_knvp_pernr.
      t_knvp_p_k-kunnr = t_knvp_pernr-kunnr.
      t_knvp_p_k-pernr = t_knvp_pernr-pernr.
      t_knvp_p_k-vkorg = t_knvp_pernr-vkorg.
      t_knvp_p_k-VTWEG = t_knvp_pernr-VTWEG.
      t_knvp_p_k-spart = t_knvp_pernr-spart.
      append t_knvp_p_k.
      loop at t_knvp_kunn2 where kunnr = t_knvp_pernr-kunnr and vkorg = t_knvp_pernr-vkorg
      and VTWEG = t_knvp_pernr-VTWEG and spart = t_knvp_pernr-spart.
        t_knvp_p_k-kunnr = t_knvp_kunn2-kunn2.
        t_knvp_p_k-pernr = t_knvp_pernr-pernr.
        t_knvp_p_k-vkorg = t_knvp_pernr-vkorg.
        t_knvp_p_k-VTWEG = t_knvp_pernr-VTWEG.
        t_knvp_p_k-spart = t_knvp_pernr-spart.
        append t_knvp_p_k.
      endloop.
    endloop.
    delete adjacent duplicates from t_knvp_p_k comparing kunnr pernr vkorg vtweg spart.
    loop at t_knvp_p_k.
      IS_BW_CUST1_w-kunnr = t_knvp_p_k-kunnr.
      IS_BW_CUST1_w-pernr = t_knvp_p_k-pernr.
      IS_BW_CUST1_w-vtweg = t_knvp_p_k-vtweg.
      append IS_BW_CUST1_w to  E_T_DATA.
    endloop.
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 e_t_data[] is initial.
      RAISE NO_MORE_DATA.
    endif.
  IF SY-SUBRC <> 0.
  CLOSE CURSOR S_CURSOR.
    RAISE NO_MORE_DATA.
  ENDIF.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.
Nimisha Gandhi.

Answer 1

Hi,
you can't open several cursors this way....
If you need fields from several tables I suggest to open the cursor on something like
SELECT t1<field> t2<field>
FROM KNA1 AS t1
INNER JOIN KNVV t2 ON t2KUNNR = t1KUNNR
Please try to stick to template as well since it is of paramount importance to FETCH NEXT at the right moment as well as RAISE NO_MORE_DATA at the right place....
otherwise that won't work.
Hope this helps...
Olivier.