Customer Exit (ABAP) Error

Question

Hi Experts,
I developed a Customer Exit Variable (BEx)..ZVDAT
In Variable definition i defined  'Processing Type-Customer Exit' and in CMOD i have written below code
My requirment is to display records whose Expiry Date is Greater than and equal(>=)  to Current Sys Date (Current Date)
The system is not displaying any error but when i execute query it is not displaying the desired
Please correct any errors in the code below
IF I_STEP = 1.
CASE i_vnam.
WHEN 'ZEDAT'.  "Policy  Expiry Date"
CLEAR: l_s_range.
l_s_range-low  = sy-datum.
l_s_range-opt = 'GE'.
l_s_range-sign = 'I'.
APPEND l_s_range TO e_t_range.
Endcase.
Endif.

Answer 1

Hi,
   Use the below code and try your program. I think this is the one you should use at i_step = 2
   not i_step = 1
CASE i_vnam.
WHEN 'ZEDAT'. "Policy Expiry Date"
          IF I_STEP = 2. "after the popup
            LOOP AT I_T_VAR_RANGE INTO LOC_T_VAR_RANGE
            WHERE VNAM = 'Your Variable Name'. '
              CLEAR L_S_RANGE.
              L_S_RANGE-LOW = 'Policy Start Date'    'Variable Start Date Value entered by User
              L_S_RANGE-HIGH = Sy-Datum. "high value = input
              L_S_RANGE-SIGN = 'I'.
              L_S_RANGE-OPT = 'GE'.
              APPEND L_S_RANGE TO E_T_RANGE.
              EXIT.
            ENDLOOP.
          ENDIF.
Regards,
Raj