URGENT!!! Extraction by FM is not working after entering No_MORE_DATA

Question

Hi Experts,
We are trying to extract data from a custom table and look up cdhdr and cdpos table for change log for recrods in that custom table. I created a generic datasource with an abaper who defined a self defined FM below which is a copy of the RSAX_BIW_GET_DATA_SIMPLE and added code to it as necessary to meet the requirements above. It was extracting data fine but the job in ECC was hanging forever and bringing down the server. Then we added the code for  RAISE NO_MORE_DATA. Now it is not extracting any data at all. Please help as this is really urgent. Following is the code. pleae tell me what i am doing wrong.
Thanks in advance.
FUNCTION zrsax_get_cd_data .
""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  ZDIRUPDTE OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
DataSource tables
  TABLES: zdirupdte.
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.
  IF i_initflag = sbiwa_c_flag_on.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
Check DataSource validity
    CASE i_dsource.
      WHEN 'Z_DE2110_DIRUPDATE'.
      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.
    APPEND LINES OF i_t_fields TO s_s_if-t_fields.
  ELSE.                 "Initialization mode or data extraction ?
Select: Retrieve all rcords from Custom table, then get CD data.
      IF sy-subrc = 0.
        LOOP AT payrl_itab.  " 1st loop to populate e_t_data with updatd values from custom table.
Add reoord from cusom table. Update with CD header info.
          s_counter = s_counter + 1.
          MOVE s_counter TO e_t_data-unq_rec_id. "Make record unique
          MOVE-CORRESPONDING payrl_itab TO e_t_data.
          PERFORM concatenate_key. " key for cdpos_UID
          PERFORM select_cd_data.  " select CDHDR/CDPOS data
          PERFORM get_header_data.
          MOVE-CORRESPONDING hdr_itab TO e_t_data.
          APPEND e_t_data.
Add same record to datapacket but with old actv/civ type value from CD table.
          s_counter = s_counter + 1.
          MOVE s_counter TO e_t_data-unq_rec_id.
          MOVE-CORRESPONDING payrl_itab TO e_t_data.
          MOVE-CORRESPONDING hdr_itab TO e_t_data.
          LOOP AT cdpos_itab.
            CASE cdpos_itab-fname.
              WHEN 'ACTV_TYP'.
                MOVE cdpos_itab-value_old TO e_t_data-actv_typ.
              WHEN 'CIV_TYP'.
                MOVE cdpos_itab-value_old TO e_t_data-civ_typ.
              WHEN OTHERS. " Only need ACTV & CIV Types for 1.2.
            ENDCASE.
          ENDLOOP.
          APPEND e_t_data.
          CLEAR: hdr_itab[], cdpos_itab[], cdhdr_itab[].
        ENDLOOP.
      ELSE.
        MESSAGE e185.
      ENDIF.                             "First data package
    ENDIF.
    s_counter_datapakid = s_counter_datapakid + 1.
    RAISE NO_MORE_DATA.
  ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.

Answer 1

Hi,
Where is the first select statement - that is select statement on the custom table ?
You should open cursor on this table and subsequently fetch package by package.
After each fetch you will check whether any data is retrieved and raise the exception no more data
something like
      OPEN CURSOR WITH HOLD s_cursor_doc FOR
      SELECT docnr FROM xxxxxx
      WHERE racct BETWEEN '0000200000' AND '0000200999'
      AND   cpudt IN xxxxxx.
    ENDIF.                             "First data package ?
**fetching required PCA documents into ranges table
    FETCH NEXT CURSOR s_cursor_doc
                INTO TABLE itab_docnr
                PACKAGE SIZE s_s_if-maxsize.
    IF sy-subrc NE 0.
      CLOSE CURSOR s_cursor_doc.
      RAISE no_more_data.
    ENDIF.