Extractor FM Problem

Question

Hi all,
i'm  creating a FM extractor, and in the end of the program i append all the data to table e_t_data
and it's o.k. .
the Problem is that when i check the DataSource in RSA3 I Dont Get any data.
What can be the problem?
Regards

Answer 1

Hi
This is My Code:
FUNCTION zdc_sales_person.
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_REQUNR) TYPE  SRSC_S_IF_SIMPLE-REQUNR
*"     REFERENCE(I_DSOURCE) TYPE  SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     REFERENCE(I_MAXSIZE) TYPE  SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     REFERENCE(I_INITFLAG) TYPE  SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*"     REFERENCE(I_READ_ONLY) TYPE  SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*"  TABLES
*"      I_T_SELECT TYPE  SRSC_S_IF_SIMPLE-T_SELECT
*"      I_T_FIELDS TYPE  SRSC_S_IF_SIMPLE-T_FIELDS
*"      E_T_DATA STRUCTURE  ZDC_SALES_PERSON OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
*maximum number of lines for DB table
  STATICS: s_s_if TYPE srsc_s_if_simple,s_counter_datapakid LIKE sy-tabix,s_cursor TYPE cursor.
*counter
*cursor
  DATA:first_per TYPE char1.
* 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
* The input parameter I_dataPAKID is not supported yet !
* check for supported update mode and InfoSource validity
    IF i_dsource EQ 'ZDC_SALES_MEN_DESCRPTION'.
      CLEAR s_counter_datapakid.
    ENDIF.
    IF s_counter_datapakid = 0.
      FREE:  zdc_sales_person.
        SELECT DISTINCT pernr parvw
        FROM vbpa
        INTO CORRESPONDING FIELDS OF TABLE it_vbpa
        WHERE parvw LIKE 'Y%'
        AND posnr = '000000'.
        SORT it_vbpa BY pernr.
        DELETE ADJACENT DUPLICATES FROM it_vbpa COMPARING pernr.
        SELECT *
        FROM pa0002
        INTO CORRESPONDING FIELDS OF TABLE emp_name
        FOR ALL ENTRIES IN  it_vbpa
        WHERE pernr = it_vbpa-pernr
        AND begda LE sy-datum
        AND endda GE sy-datum.
        LOOP AT it_vbpa ASSIGNING <fs_vbpa> .
          READ TABLE emp_name INTO wa_emp_name WITH KEY pernr = <fs_vbpa>-pernr.
          IF sy-subrc = 0.
            CONCATENATE wa_emp_name-vorna wa_emp_name-nachn
            INTO <fs_vbpa>-sales_men_name SEPARATED BY space.
            CLEAR : wa_emp_name.
          ENDIF.
        ENDLOOP.
        APPEND LINES OF it_vbpa TO zdc_sales_person.
*removing duplicates
*first we sort it that the duplicates lines will be together and than delete
*removing double lines
        DELETE ADJACENT DUPLICATES FROM zdc_sales_person.
*counting the lines
        DESCRIBE TABLE zdc_sales_person LINES tabix_all_max.
      ENDIF.
*    IF g_counter_datapakid = 0.
      tabix_all_from = 1 + ( s_counter_datapakid * i_maxsize ) .
*     ENDIF.                             "First data package ?
*for the lines counting
      IF tabix_all_from > tabix_all_max.
        RAISE no_more_data.
      ENDIF.
      tabix_all_to = tabix_all_from + i_maxsize - 1." + ( s_counter_datapakid * i_maxsize ).
      IF tabix_all_to > tabix_all_max.
        tabix_all_to = tabix_all_max.
      ENDIF.
      CLEAR: e_t_data, e_t_data[].
      APPEND LINES OF zdc_sales_person FROM tabix_all_from TO tabix_all_to TO e_t_data.
      tabix_all_from = tabix_all_to + 1.
      s_counter_datapakid = s_counter_datapakid + 1.
    ENDIF.
    APPEND LINES OF zdc_sales_person FROM tabix_all_from TO tabix_all_to TO e_t_data.
  ENDFUNCTION.
Best Regards