hi ABAP Gurus
i have written code for Generic Extraction at RSAX_BIW_GET_DATA
but It is not working fine for selections .
FUNCTION ZRSAX_BIW_GET_DAT_VBAK.
STATICS C1 TYPE CURSOR.
RANGES R_VBELN FOR VBAK-VBELN.
RANGES R_ERDAT FOR VBAK-ERDAT.
IF I_INITFLAG = SPACE.
IF C1 IS INITIAL .
LOOP AT I_T_SELECT WHERE FIELDNM = 'VBELN'.
R_VBELN-SIGN = I_T_SELECT-SIGN.
R_VBELN-OPTION = I_T_SELECT-OPTION.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = I_T_SELECT-LOW
IMPORTING
STRING_OUT = R_VBELN-LOW.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = I_T_SELECT-HIGH
IMPORTING
STRING_OUT = R_VBELN-HIGH.
APPEND R_VBELN.
CLEAR R_VBELN.
ENDLOOP.
LOOP AT I_T_SELECT WHERE FIELDNM = 'ERDAT'.
R_ERDAT-SIGN = I_T_SELECT-SIGN.
R_ERDAT-OPTION = I_T_SELECT-OPTION.
R_ERDAT-LOW = I_T_SELECT-LOW.
R_ERDAT-HIGH = I_T_SELECT-HIGH. APPEND R_ERDAT .CLEAR R_ERDAT.
ENDLOOP.
OPEN CURSOR C1 FOR SELECT
VBELN ERDAT VKORG KUNNR NETWR WAERK FROM VBAK WHERE VBELN IN R_VBELN AND
ERDAT IN R_ERDAT.
ENDIF.
FETCH NEXT CURSOR C1
INTO CORRESPONDING FIELDS OF TABLE E_t_DATA PACKAGE SIZE I_MAXSIZE.
IF SY-SUBRC <> 0.
CLOSE CURSOR C1.
RAISE NO_MORE_DATA.
ENDIF.
FIELD-SYMBOLS <kittu> TYPE zes_vbak.
LOOP at e_t_data ASSIGNING <kittu>.
<kittu>-netwr = <kittu>-netwr + 500.
ENDLOOP.
ENDIF.
ENDFUNCTION.
It is working fine calculations
but when iam use selection criateria on ERDAT
I have used selections as 02011997 to 21011997
but it is picking all the records from VBAK
please help on this issues
Regards
Balalkrishna.c