Delta error in GE-Function Module

Question

Hi ,
my GE-delta is based on UDATE ( chenged date) from CDHDR table.
i created datasource in RS02 and i defined delta based in UDATE with upper limit 1 day and lower limit is '0'..
i created FM based on RSAX_BIW_GEDATA_SIMPLE.
for full load it working fine.
i put some extra code for delta.
it is not take any records...
i dont know much ABAP.
plz tell me where is wrong in my code for delta..
code ...
FUNCTION ZXBWMM_INV_POT_ID.
""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  ZVSAIPID OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
Example: DataSource for table SFLIGHT
TABLES: SFLIGHT.
TABLES: EBAN , CDPOS , CDHDR , ZVSAPR.
  TYPES : BEGIN OF TY_OBJDATE ,
        OBJECTID TYPE CDHDR-OBJECTID,
        VALUE_NEW TYPE CDPOS-VALUE_NEW,
        VALUE_OLD TYPE CDPOS-VALUE_OLD,
        UDATE TYPE CDHDR-UDATE,
        MINBE TYPE MARC-MINBE,
        BSTMA TYPE MARC-BSTMA,
        WERKS TYPE MARC-WERKS,
        VERPR TYPE MBEW-VERPR,
        STPRS TYPE MBEW-STPRS,
        LBKUM TYPE MBEW-LBKUM,
        BUDAT TYPE MKPF-BUDAT,
        MBLNR TYPE MSEG-MBLNR,
        MENGE TYPE MSEG-MENGE,
        DMBTR TYPE MSEG-DMBTR,
        END OF TY_OBJDATE.
  data : int_cdhdr type table of cdhdr with header line,
       int_cdpos type table of cdpos with HEADER LINE,
       INT_OBJDATE TYPE TABLE OF TY_OBJDATE WITH HEADER LINE.
      int_marc type table of marc with header line.
*DATA: int_pr1 TYPE TABLE OF ZVSAIPID WITH HEADER LINE.
  DATA : BEGIN OF INT_MATNR OCCURS 10,
         MAtnr like mara-matnr,
         end of int_matnr.
DATA : BEGIN OF INT_MARC OCCURS 10,
         matnr like marc-matnr,
         MINBE like marC-mINBE,
         BSTMA LIKE Marc-bstma,
         WERKS LIKE MARC-WERKS,
         end of int_marc.
DATA : BEGIN OF INT_MBEW OCCURS 10,
         MATNR LIKE MBEW-MATNR,
         VERPR LIKE MBEW-VERPR,
         STPRS LIKE MBEW-STPRS,
         LBKUM LIKE MBEW-LBKUM,
         end of int_MBEW.
DATA : BEGIN OF INT_MKPF OCCURS 10,
         MBLNR LIKE MKPF-MBLNR,
         BUDAT LIKE MKPF-BUDAT,
         END OF INT_MKPF.
DATA : BEGIN OF INT_MSEG OCCURS 10,
         MATNR LIKE MSEG-MATNR,
         MBLNR LIKE MSEG-MBLNR,
         MENGE LIKE MSEG-MENGE,
         DMBTR LIKE MSEG-DMBTR,
         END OF INT_MSEG.
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_CARRID  FOR SFLIGHT-CARRID,
         L_R_CONNID  FOR SFLIGHT-CONNID.
  RANGES : ra_OBJECTID FOR E_T_DATA-OBJECTID.
          RA_UDATE FOR E_T_DATA-UDATE.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
  IF I_INITFLAG = SBIWA_C_FLAG_ON.
  IF NOT G_FLAG_INTERFACE_INITIALIZED IS INITIAL.
IF 1 = 2. MESSAGE E008(R3). ENDIF.
LOG_WRITE 'E' "message type
'R3' "message class
'008' "message number
' ' "message variable 1
' '. "message variable 2
RAISE ERROR_PASSED_TO_MESS_HANDLER.
ENDIF.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
Check DataSource validity
    CASE I_DSOURCE.
      WHEN 'ZOI_MM_INVENTORY_IPID'.
      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.
  Check for supported update mode
CASE I_UPDMODE.
WHEN 'F'.
WHEN 'D'.
WHEN 'R'.
WHEN OTHERS.
IF 1 = 2. MESSAGE E011(R3). ENDIF.
LOG_WRITE 'E' "message type
'R3' "message class
'011' "message number
I_UPDMODE "message variable 1
' '. "message variable 2
RAISE ERROR_PASSED_TO_MESS_HANDLER.
ENDCASE.
READ TABLE I_T_SELECT INTO L_S_SELECT
WITH KEY FIELDNM = 'UDATE'.
    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.
    G_S_INTERFACE-INITFLAG = I_INITFLAG.
    G_S_INTERFACE-UPDMODE = I_UPDMODE.
    G_S_INTERFACE-DATAPAKID = I_DATAPAKID.
    G_FLAG_INTERFACE_INITIALIZED = SBIWA_C_FLAG_ON.
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
  LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT
  WHERE FIELDNM = 'UDATE'.
  ENDLOOP
    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 = '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.
     IF L_S_SELECT-LOW = '' AND L_S_SELECT-HIGH = ''. "FULL or INIT
      OPEN CURSOR WITH HOLD S_CURSOR FOR
      select * from cdhdr where OBJECTCLAS = 'MATERIAL' AND TCODE = 'MM02'.
      ELSE. "DELTA
     OPEN CURSOR WITH HOLD G_CURSOR FOR
     select * from cdhdr where OBJECTCLAS = 'MATERIAL'
     AND TCODE = 'MM02'
     AND UDATE >= L_S_SELECT-LOW
     AND UDATE <= L_S_SELECT-HIGH.
     ENDIF.
     ENDIF.
   ENDIF.
    "First data package ?
    FETCH NEXT CURSOR S_CURSOR
          APPENDING  TABLE int_cdhdr
          PACKAGE SIZE S_S_IF-MAXSIZE.
   into table int_cdhdr
    IF SY-SUBRC <> 0.
      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
    SELECT * FROM CDPOS INTO TABLE INT_CDPOS
         FOR ALL ENTRIES IN INT_CDHDR
         WHERE OBJECTID = INT_CDHDR-OBJECTID
         AND TABNAME = 'MARC'
         AND ( FNAME =  'BSTMA' OR FNAME = 'MINBE' ).
    LOOP AT int_cdpos.
      int_matnr-matnr = int_cdpos-objectid.
      APPEND int_matnr.
    ENDLOOP.
    SELECT  matnr MINBE BSTMA WERKS FROM MARC INTO TABLE INT_marc
            FOR ALL ENTRIES IN int_matnr
           WHERE MATNR = INT_matnr-matnr.
    SELECT  matnr VERPR STPRS LBKUM FROM MBEW INTO TABLE INT_MBEW
            FOR ALL ENTRIES IN int_matnr
           WHERE MATNR = INT_matnr-matnr.
    SELECT  matnr MBLNR MENGE DMBTR FROM MSEG INTO TABLE INT_MSEG
            FOR ALL ENTRIES IN int_matnr
           WHERE MATNR = INT_matnr-matnr.
     LOOP AT int_MSEG.
      int_MKPF-MBLNR = int_MSEG-MBLNR.
      APPEND int_MKPF.
    ENDLOOP.
    SELECT  MBLNR BUDAT FROM MKPF INTO TABLE INT_MKPF
            FOR ALL ENTRIES IN int_MKPF
           WHERE MBLNR = INT_MKPF-MBLNR.
*BREAK-POINT.
    LOOP AT INT_CDPOS.
      READ TABLE INT_CDHDR WITH KEY OBJECTID = INT_CDPOS-OBJECTID .
      IF SY-SUBRC = 0.
        INT_OBJDATE-OBJECTID = INT_CDPOS-OBJECTID.
        INT_OBJDATE-VALUE_NEW = INT_CDPOS-VALUE_NEW.
        INT_OBJDATE-VALUE_OLD = INT_CDPOS-VALUE_OLD.
        INT_OBJDATE-UDATE = INT_CDHDR-UDATE.
        READ TABLE INT_MARC WITH KEY MATNR = INT_CDPOS-OBJECTID .
        IF SY-SUBRC = 0.
          INT_OBJDATE-MINBE = INT_MARC-MINBE.
          INT_OBJDATE-BSTMA = INT_MARC-BSTMA.
          INT_OBJDATE-WERKS = INT_MARC-WERKS.
          ENDIF.
        READ TABLE INT_MBEW WITH KEY MATNR = INT_CDPOS-OBJECTID .
        IF SY-SUBRC = 0.
          INT_OBJDATE-VERPR = INT_MBEW-VERPR.
          INT_OBJDATE-STPRS = INT_MBEW-STPRS.
          INT_OBJDATE-LBKUM = INT_MBEW-LBKUM.
         ENDIF.
        READ TABLE INT_MSEG WITH KEY MATNR = INT_CDPOS-OBJECTID .
        IF SY-SUBRC = 0.
          INT_OBJDATE-MBLNR = INT_MSEG-MBLNR.
          INT_OBJDATE-MENGE = INT_MSEG-MENGE.
          INT_OBJDATE-DMBTR = INT_MSEG-DMBTR.
         ENDIF.
        READ TABLE INT_MKPF WITH KEY MBLNR = INT_MSEG-MBLNR .
        IF SY-SUBRC = 0.
          INT_OBJDATE-MBLNR = INT_MKPF-MBLNR.
          INT_OBJDATE-BUDAT = INT_MKPF-BUDAT.
         ENDIF.
        APPEND INT_OBJDATE.
      ENDIF.
    ENDLOOP.
*SELECT * FROM EBAN
    INTO CORRESPONDING FIELDS OF TABLE INT_PR1
    FOR ALL ENTRIES IN INT_OBJDATE
    WHERE BAnfn = int_objdate-objectid.
*ZZPRREL
    LOOP AT INT_OBJDATE.
      E_T_DATA-OBJECTID = INT_OBJDATE-OBJECTID.
      E_T_DATA-UDATE = INT_OBJDATE-UDATE.
      E_T_DATA-VALUE_NEW = INT_OBJDATE-VALUE_NEW.
      E_T_DATA-VALUE_OLD = INT_OBJDATE-VALUE_OLD.
      E_T_DATA-MINBE = INT_OBJDATE-MINBE.
      E_T_DATA-BSTMA = INT_OBJDATE-BSTMA.
      E_T_DATA-WERKS = INT_OBJDATE-WERKS.
      E_T_DATA-VERPR = INT_OBJDATE-VERPR.
      E_T_DATA-STPRS = INT_OBJDATE-STPRS.
      E_T_DATA-LBKUM = INT_OBJDATE-LBKUM.
      E_T_DATA-MBLNR = INT_OBJDATE-MBLNR.
      E_T_DATA-MENGE = INT_OBJDATE-MENGE.
      E_T_DATA-DMBTR = INT_OBJDATE-DMBTR.
      E_T_DATA-BUDAT = INT_OBJDATE-BUDAT.
      APPEND E_T_DATA.
      CLEAR  E_T_DATA.
    ENDLOOP.
Fetch records into interface table.
  named E_T_'Name of extract structure'.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.
i assign points....
Regards,
PSR.

Answer 1

Hi ,
i am not find any sollution for this..
any body help me for this problum...
i assign points..
Regards,
PSR