Function module extracter

Question

hi,
i created a function module as an extractor.
FUNCTION z_biw_get_data_ps005.
""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 TYPE  ZT_PS005 OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
Example: DataSource for table SFLIGHT
TABLES: SFLIGHT.
  TABLES : lips .
Auxiliary Selection criteria structure
  TYPES : BEGIN OF ty_lips ,
          vgbel TYPE vgbel ,
          vgpos TYPE vgpos ,
          lfimg TYPE lfimg ,
          END OF ty_lips.
  TYPES : BEGIN OF ty_ps ,
          ebeln TYPE ebeln ,
          ebelp(6) TYPE n ,
          poqty TYPE bstmg ,
          ereqty TYPE bstmg ,
          frnt_avl TYPE bstmg ,
          posid TYPE ps_posid ,
          lfimg TYPE lfimg ,
          END OF ty_ps .
  DATA : l_s_select TYPE srsc_s_select.
  DATA : git_ps005 TYPE TABLE OF ty_ps.
  DATA : git_lips TYPE TABLE OF ty_lips .
  DATA : gs_lips TYPE ty_lips .
  DATA : gs_ps005 TYPE ty_ps .
  DATA : gs_gsps005 TYPE zgs_ps005 .
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.
Select ranges
RANGES: l_r_carrid  FOR sflight-carrid,
         l_r_connid  FOR sflight-connid.
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 'ZD_PS005'.
      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'.
*SELECTION FROM VIEW ZBW_PS005 AND LIPS
      SELECT ebeln ebelp poqty ereqty frnt_avl posid  FROM zbw_ps005
               INTO TABLE git_ps005 .
      IF NOT git_ps005[] IS INITIAL .
        SELECT vgbel vgpos lfimg
               FROM lips
               INTO TABLE git_lips
               FOR ALL ENTRIES IN git_ps005
               WHERE vgbel = git_ps005-ebeln
               AND   vgpos = git_ps005-ebelp .
      ENDIF .
      LOOP AT git_ps005 INTO gs_ps005 .
        READ  TABLE git_lips INTO gs_lips WITH KEY
                                 vgbel = gs_ps005-ebeln
                                 vgpos = gs_ps005-ebelp .
        MOVE gs_ps005-ebeln TO gs_gsps005-ebeln .
        MOVE gs_ps005-ebelp TO gs_gsps005-ebelp .
        MOVE gs_ps005-poqty TO gs_gsps005-poqty .
        MOVE gs_ps005-ereqty TO gs_gsps005-ereqty .
        MOVE gs_ps005-frnt_avl TO gs_gsps005-frnt_avl .
        MOVE gs_ps005-posid TO gs_gsps005-posid.
        MOVE gs_lips-lfimg TO gs_gsps005-lfimg .
        APPEND gs_gsps005 TO e_t_data .
        CLEAR : gs_ps005 , gs_lips , gs_gsps005 .
      ENDLOOP.
     LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CARRID'.
       MOVE-CORRESPONDING L_S_SELECT TO L_R_CARRID.
       APPEND L_R_CARRID.
     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.
     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.              "Initialization mode or data extraction ?
ENDFUNCTION.
wen i extracted data in rsa3 its showz  perfect 11 records.
but wen i schedule in bw it feched 11 records but it does not turn green .
wen i check process overviiew, it showz status running.
shud i give some termination condition in extractor plz let me know.
wt shud be the termination condition
thnx

Answer 1

Hi,
you need to raise the exeption NO_MORE_DATA at the end of the fm in case there is no more data available in your internal tables.
Here the code:
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.
if e_t_data[] is initial.   ***********
  raise no_more_data. ************
endif.                         ************
ENDIF. "Initialization mode or data extraction ?
ENDFUNCTION.
That should do the trick.
regards
Siggi