Problem in Delta Extraction

Question

Hi Firends,
I created a DS out of a  Function module. The source table is a Z table with following data
MANDT MATNR                WERKS  STLNR    ANDAT      AEDAT      AENAM        VALUE
100   000000000000000184   1500   00001500 18.08.2006 15.08.2006 SANDEEP      0000002500
100   000000000000000364   KOPL   00001825 19.08.2006 17.08.2006 SASI         0000003500
100   AUDCOMAT12           1111   00001980 22.12.2006 22.12.2006 DEVELOPER    0000005600
100   AUDCOMAT12           1500   00001500 15.08.2006 15.08.2006 DEVELOPER    0000001600
My FM is as follows:-
FUNCTION ZSAN_BIW_MAST1.
""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
*"  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  ZSAN_MAST OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
Example: DataSource for table SFLIGHT
  TABLES: ZSAN_MAST.
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.
Select ranges
  RANGES: L_R_MATNR  FOR ZSAN_MAST-MATNR,
          L_R_AEDAT  FOR ZSAN_MAST-AEDAT.
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 'ZSAN_DS_MAST'.
      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'.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'MATNR'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_MATNR.
        APPEND L_R_MATNR.
      ENDLOOP.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'AEDAT'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_AEDAT.
        APPEND L_R_AEDAT.
      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 ZSAN_MAST
                               WHERE  AEDAT  gt L_R_AEDAT-LOW.
    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.
i did the initializiation with out data transfer and it pulled one record as expected.
But when i do a delta update it dosent pull any record from the table inspite of having ---" AEDAT  gt L_R_AEDAT-LOW. " in my code.
As per me it should have pulled 2 records from my ZTable, the 2nd and 3rd record, but it dosen't
I made the delta on AEDAT field and the
'Date of Last change' in Generic Delta is - '16.08.2006'.
Can any one suggest what the problem could be ?
Thanks
Regards,
Dutta

Answer 1

Without knowing everything, here is an example of what I have done. This FM extracts MARC changes on specific fields.
FUNCTION ZBSV_BW_EXTRACT_MARC_CNGS.
""Local interface:
*"  IMPORTING
*"     REFERENCE(I_DSOURCE) TYPE  SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     REFERENCE(I_INITFLAG) LIKE  RSAAPI_IF-INITFLAG OPTIONAL
*"     REFERENCE(I_MAXSIZE) TYPE  SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     REFERENCE(I_REQUNR) TYPE  SRSC_S_IF_SIMPLE-REQUNR OPTIONAL
*"  TABLES
*"      I_T_SELECT STRUCTURE  RSSELECT OPTIONAL
*"      I_T_FIELDS STRUCTURE  RSFIELDSEL OPTIONAL
*"      E_T_DATA STRUCTURE  CDRED OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
FM: ZBSV_BW_EXTRACT_MARC_CNGS
Author: Steve Wilson
Dev. Class: ZZBW
Date: 11/29/2005
Description:
This FM is used to collect relevant MARC Changes
This BIW FM uses an SAP Standard FM to collect Change documents.
There are only 4 fields we care about checking changes on currently.
Mod date  Programmer    Reference   Description
06SEP05   Steve W.      CA2K930787  Initial Development ip: 2877190
               DATA DECLARATION                                      *
  RANGES:  R_DATUM FOR SYST-DATUM.   "Change date
  REFRESH: S_DATUM.
Maximum number of lines for DB table
  STATICS: S_S_IF TYPE SRSC_S_IF_SIMPLE,
counter
   S_COUNTER_DATAPAKID LIKE SY-TABIX,
   START_IDX LIKE SY-TABIX,
   END_IDX LIKE SY-TABIX.
              BEGIN OF PROCESSING                                    *
  IF I_INITFLAG = SBIWA_C_FLAG_ON.
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.
  ELSE.
First data package
    IF S_COUNTER_DATAPAKID = 0.
    get changed date selection
      LOOP AT I_T_SELECT WHERE FIELDNM EQ 'UDATE'.
        R_DATUM-SIGN = I_T_SELECT-SIGN.
        R_DATUM-OPTION = I_T_SELECT-OPTION.
        R_DATUM-LOW = I_T_SELECT-LOW.
        R_DATUM-HIGH = I_T_SELECT-HIGH.
        IF R_DATUM-HIGH EQ SPACE.
         R_DATUM-HIGH = '99991231'.
        ENDIF.
        APPEND R_DATUM.
        EXIT. "Only want 1 record, ignore others
      ENDLOOP.
      CALL FUNCTION 'CHANGEDOCUMENT_READ'
        EXPORTING
          ARCHIVE_HANDLE                   = 0
        CHANGENUMBER                     = ' '
          DATE_OF_CHANGE                   = R_DATUM-LOW
          OBJECTCLASS                      = 'MATERIAL'
        OBJECTID                         = ' '
        TABLEKEY                         = ' '
          TABLENAME                        = 'MARC'
          TIME_OF_CHANGE                   = '000000'
        USERNAME                         = ' '
        LOCAL_TIME                       = ' '
          DATE_UNTIL                       = R_DATUM-HIGH
          TIME_UNTIL                       = '235959'
        TABLES
          EDITPOS                          = ITAB_CDRED
       EXCEPTIONS
         NO_POSITION_FOUND                = 1
         WRONG_ACCESS_TO_ARCHIVE          = 2
         TIME_ZONE_CONVERSION_ERROR       = 3
         OTHERS                           = 4.
      IF SY-SUBRC <> 0.
       RAISE NO_MORE_DATA.
      ELSE.
       LOOP AT ITAB_CDRED. "Keep fields
        IF ITAB_CDRED-FNAME+0(5) NE 'DISPO' AND
           ITAB_CDRED-FNAME+0(5) NE 'EISBE' AND
           ITAB_CDRED-FNAME+0(5) NE 'BSTRF' AND
           ITAB_CDRED-FNAME+0(5) NE 'SHZET'.
          DELETE ITAB_CDRED.
        ENDIF.
       ENDLOOP.
      LOOP AT ITAB_CDRED. "Keep Factories
        IF ITAB_CDRED-TABKEY+21(4) NE 'LX01' AND
          ITAB_CDRED-TABKEY+21(4) NE 'LX09' AND
          ITAB_CDRED-TABKEY+21(4) NE 'ZX01' AND
          ITAB_CDRED-TABKEY+21(4) NE 'CE01' AND
          ITAB_CDRED-TABKEY+21(4) NE 'CC01'.
         DELETE ITAB_CDRED.
        ENDIF.
      ENDLOOP.
      ENDIF.
      DESCRIBE TABLE ITAB_CDRED LINES COUNTER.
      APPEND LINES OF ITAB_CDRED FROM 1 TO I_MAXSIZE TO E_T_DATA .
      END_IDX = I_MAXSIZE.
      S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
    ELSE.
      IF END_IDX GE COUNTER.
        RAISE NO_MORE_DATA.
      ENDIF.
      START_IDX = END_IDX + 1.
      END_IDX = ( START_IDX + I_MAXSIZE ) - 1.
      APPEND LINES OF ITAB_CDRED FROM START_IDX TO END_IDX
                                                    TO E_T_DATA.
      S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
    ENDIF.
  ENDIF.