Function module for RSAX_BIW_GET_DATA

[Former Member]

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

[Former Member]

we have to write conversion of dates

I mean in selections we have to make DDMMYYYY to YYYYMMDD.