Cursors in extractors

Question

Hello,
I have a extractor function module as follows
FUNCTION YYYY.
*----- Initialization mode (first call by SAPI) or data transfer mode
*----- (following calls) ?
  IF I_INITFLAG = SBIWA_C_FLAG_ON.
  <code>
  ELSE.                 "Initialization mode or data extraction ?
    CALL FUNCTION 'XXXX'
         EXPORTING
         IMPORTING
         TABLES
         EXCEPTIONS
              NO_MORE_DATA       = 1
    if sy-subrc = 1.
      RAISE NO_MORE_DATA.
    endif.
ABCD----
>
  ENDIF.
ENDFUNCTION.
Here my function module XXXX uses cursors to get some data from the backend tables. This is done using repeated calls of the function module till the exception no_more_data is obtained.
Now my issue is that i need to extract another set of data in the same function module using cursors again at the mentioned point in code, ABCD. How can i do this, keeping in mind the multiple function module calls?
Regards,
Suraj

Answer 1

Hi Suraj,
The thing is you cannot raise the exception when there is not data fetch in the first cursor select statement.
As you dont know at run time is there any data left in the second select statement you have written .
what you can do if declare a variable which will be set to X when the sy-subrc<> 0 for the first select statment.
like
This is your 1st select statement with the cursor .....
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
lv_var = 'X' .
Dont raise the ecception here.
    ENDIF.
No the 2nd select statment with cursor
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
if lv_var = 'X' .
raise the ecception here this is because in the 1st select it has already fetch all the data .
endif.  
ENDIF.
where you lv_var is type c .
I hope it is clear now.
Regards,
Pawan
Message was edited by:
        PS