Generic Datasource with Delta and functionmodule

Question

Hi together,
who can help me ??
Ihave created a generic datasource with function module and
delta.
the extractor runs well while i use full update and also initialization.
If i start the delta extraction, the extractor crashed with short-dump.
the message is SAPSQL_INVALID_FIELDNAME
What can i do, and what is wrong.
regards
thorsten Weiss

Answer 1

Hi Roberto,
here is the code from the function-module:
FUNCTION zbw_mm_get_eket.
""Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_REQUNR) TYPE  SBIWA_S_INTERFACE-REQUNR
*"     VALUE(I_DSOURCE) TYPE  SBIWA_S_INTERFACE-ISOURCE OPTIONAL
*"     VALUE(I_MAXSIZE) TYPE  SBIWA_S_INTERFACE-MAXSIZE DEFAULT 1000
*"     VALUE(I_INITFLAG) TYPE  SBIWA_S_INTERFACE-INITFLAG OPTIONAL
*"     VALUE(I_READ_ONLY) TYPE  SBIW_BOOL DEFAULT SBIW_C_FALSE
*"  TABLES
*"      I_T_SELECT TYPE  SBIWA_T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SBIWA_T_FIELDS OPTIONAL
*"      E_T_DATA OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
  INCLUDE lrsalk01.
DataSource for table EKET
  TABLES: zv_mm_eket.
interne Tabelle für Bearbeitung
  DATA:   itab_0 TYPE TABLE OF zstr_eket WITH HEADER LINE.
  TYPES: BEGIN OF typ_categ,
          j_4kbwef    TYPE atnam,
          /afs/bwel   TYPE j_4kbwef,
         END OF typ_categ.
  DATA: l_s_data_eket  TYPE zstr_eket,
        ld_cat_struct  TYPE j_4kcsgr,
        lt_cat_fields  TYPE TABLE OF j_4kcif001,
        ls_cat_fields  TYPE j_4kcif001,
        ls_mara        TYPE mara,
        l_tabix        LIKE sy-tabix,
        itab_cat       TYPE TABLE OF typ_categ ,
        ls_cat         TYPE typ_categ,
        h_feldsize1(8)        TYPE c,"wegen Typ-konflikt im FB
        h_feldsize2(8)        TYPE c."wegen Typ-konflikt im FB
Auxiliary Selection criteria structure
  DATA: l_s_select TYPE rsselect.
Maximum number of lines for DB table
  STATICS: s_t_select     LIKE rsselect OCCURS 0 WITH HEADER LINE,
           s_t_fields     LIKE rsfieldsel OCCURS 0 WITH HEADER LINE,
counter
          s_counter_datapakid LIKE sy-tabix,
cursor
          s_cursor TYPE cursor.
Select ranges
  RANGES: l_r_ebeln       FOR zv_mm_eket-ebeln,
          l_r_ebelp       FOR zv_mm_eket-ebelp,
          l_r_bsart       FOR zv_mm_eket-bsart.
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 'ZDS_V_MM_EKET'.
      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
                  ' function modul was created for DS ' &
                  'ZDS_V_MM_EKET"!'.
        "message variable 2
        RAISE error_passed_to_mess_handler.
    ENDCASE.
    APPEND LINES OF i_t_select TO s_t_select.
Fill parameter buffer for data extraction calls
   S_T_SELECT-REQUNR    = I_REQUNR.
   S_T_SELECT-DSOURCE   = I_DSOURCE.
   S_T_SELECT-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_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_t_select INTO l_s_select WHERE fieldnm = 'EBELN'.
        MOVE-CORRESPONDING l_s_select TO l_r_ebeln.
        APPEND l_r_ebeln.
      ENDLOOP.
      LOOP AT s_t_select INTO l_s_select WHERE fieldnm = 'EBELP'.
        MOVE-CORRESPONDING l_s_select TO l_r_ebelp.
        APPEND l_r_ebelp.
      ENDLOOP.
      LOOP AT s_t_select INTO l_s_select WHERE fieldnm = 'BSART'.
        MOVE-CORRESPONDING l_s_select TO l_r_bsart.
        APPEND l_r_bsart.
      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_t_fields) FROM zv_mm_eket
      WHERE
      ebeln      IN               l_r_ebeln           AND
      ebelp      IN               l_r_ebelp         AND
      bsart    IN             l_r_bsart.
    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 i_maxsize.
    FETCH NEXT CURSOR s_cursor
               APPENDING CORRESPONDING FIELDS
               OF TABLE itab_0
               PACKAGE SIZE i_maxsize.
    LOOP AT itab_0 INTO l_s_data_eket.
      l_tabix = sy-tabix.
Lesen Erstellungsdatum aus EKKO
      SELECT SINGLE aedat FROM ekko INTO l_s_data_eket-sydat
                     WHERE ebeln = l_s_data_eket-ebeln.
Lesen Partner aus EKPA
      SELECT SINGLE lifn2 FROM ekpa INTO l_s_data_eket-plief
                     WHERE ebeln = l_s_data_eket-ebeln AND
                           ebelp = l_s_data_eket-ebelp AND
                           ekorg = l_s_data_eket-ekorg AND
                           werks = l_s_data_eket-werks .
      IF NOT l_s_data_eket-matnr IS INITIAL .
*A Lesen material für Kategoriestruktur j_4kcsgr(F001 oder R002)
        CLEAR ls_mara.
        CALL FUNCTION 'J_3A1_LESEN_MARA_SINGLE'
             EXPORTING
                  i_matnr         = l_s_data_eket-matnr
             IMPORTING
                  e_mara          = ls_mara
             EXCEPTIONS
                  param_not_valid = 1
                  OTHERS          = 2.
        IF sy-subrc NE 0.
        ENDIF.
*E Lesen material für Kategoriestruktur j_4kcsgr(F001 oder R002)
*A Aufsplitten Bestandskategorie
        REFRESH lt_cat_fields.
        CALL FUNCTION 'J_4KG_SPLIT_CAT'
          EXPORTING
            client                            = sy-mandt
            csgr                              = ls_mara-j_4kcsgr
            cat_appl                          = 'S'
            cat_value                         = l_s_data_eket-j_4kscat
  NECESSARY_SPECIFIED               = ' '
          TABLES
            cat_fields_tab                    = lt_cat_fields
          EXCEPTIONS
            no_category_structure_found       = 1
          OTHERS                            = 2.
        IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ELSE."sy-subrc <> 0
Verarbeitung der Ergebnisse
          LOOP AT lt_cat_fields INTO ls_cat_fields.
            IF ls_cat_fields-j_4kbwef EQ 'BW_CAT_SCONFIG'.
              l_s_data_eket-zz_bwel_sconfig = ls_cat_fields-j_4kcatv.
            ENDIF.
            IF ls_cat_fields-j_4kbwef EQ 'BW_CAT_CONFIG'.
              l_s_data_eket-zz_bwel_config = ls_cat_fields-j_4kcatv.
            ENDIF.
            IF ls_cat_fields-j_4kbwef EQ 'BW_CAT_COUNTRY'.
              l_s_data_eket-j_3abwel_country = ls_cat_fields-j_4kcatv.
            ENDIF.
            IF ls_cat_fields-j_4kbwef EQ 'BW_CAT_COUNTRYGRP'.
              l_s_data_eket-zz_bwel_coungrp = ls_cat_fields-j_4kcatv.
            ENDIF.
            IF ls_cat_fields-j_4kbwef EQ 'BW_CAT_STOCKTYPE'.
              l_s_data_eket-zz_bwel_stktype = ls_cat_fields-j_4kcatv.
            ENDIF.
            IF ls_cat_fields-j_4kbwef EQ 'BW_CAT_ORDER'.
              l_s_data_eket-zz_bwel_order = ls_cat_fields-j_4kcatv.
            ENDIF.
            IF ls_cat_fields-j_4kbwef EQ 'BW_CAT_QUALITY'.
              l_s_data_eket-j_3abwel_qual = ls_cat_fields-j_4kcatv.
            ENDIF.
          ENDLOOP."lt_cat_fields
        ENDIF.
*E Aufsplitten Bestandskategorie
*A Aufsplitten MAtrix
        IF NOT l_s_data_eket-j_3asize IS INITIAL.
          CALL FUNCTION 'J_3A_SPLIT_SIZES'
               EXPORTING
                    matnr              = l_s_data_eket-matnr
                    j_3asize           = l_s_data_eket-j_3asize
               IMPORTING
                    j_3akord1          = l_s_data_eket-j_3abwel_color
                    j_3akord2          = h_feldsize1
                    j_3akord3          = h_feldsize2
               EXCEPTIONS
                    no_grid_determined = 1
                    OTHERS             = 2.
          IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ELSE.
            l_s_data_eket-zz_bwel_size1 = h_feldsize1.
            l_s_data_eket-zz_bwel_size2 = h_feldsize2.
          ENDIF.
        ENDIF."not l_s_data_eket-J_3ASIZE is initial
*E Aufsplitten MAtrix
        MODIFY itab_0 FROM l_s_data_eket INDEX l_tabix.
      ENDIF."not l_s_data_eket-matnr is initial
    ENDLOOP.                                                "itab_0
  An Ausgabe-Tabelle übergeben
    APPEND LINES OF itab_0 TO e_t_data.
    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.
regards
thorsten