Require help in my ABAP code

Question

Hi All,
My design wont allow Delta loads because the transformation source is an InfoSet.  To limit the data in these loads, I require a  filter in the DTPs on fiscal year/period then only load I can load the current month and 2 prior months.  Now we are updating manually for the DTPs.   To eliminate this monthly task a dynamic filter (routine) needs should be used rather than a static filter.
So I have written as follows  But in the debugger mode am able to see the -3months to the current date but records are not filtered. Any help please
*&  Include           RSBC_SEL_ROUTINE_TPL -
program conversion_routine.---
Type pools used by conversion program---
type-pools: rsarc, rsarr, rssm.---
tables: rssdlrange.---
Global code used by conversion rules---
$$ begin of global - insert your declaration only below this line  ----
TABLES: ...---
DATA:   ...------
$$ end of global - insert your declaration only before this line   ----
    Fieldname       = F139---
    data type       = NUMC---
    length          = 000007---
form compute_F139---
  tables l_t_range structure rssdlrange---
  changing p_subrc like sy-subrc.---
      Insert source code to current selection field---
$$ begin of routine - insert your code only below this line        ----
  data: l_idx like sy-tabix.---
  read table l_t_range with key---
       fieldname = '/bic/0FISCPER' .---
  l_idx = sy-tabix.---
  DATA: w_date TYPE SY-DATUM,---
      w_date1 type sy-datum,---
      lv_idate(8) type n,---
      lv_odate(8) type n,---
      lv_date1(7) type n,---
      lv_date2(8) type n.---
  CONCATENATE SY-DATUM0(4) SY-DATUM4(2) sy-datum+6(2) into W_DATE.---
  CALL FUNCTION 'SEPA_MANDATE_ADD_MONTH_TO_DATE'---
    EXPORTING---
      MONTHS  = '-3'---
      OLDDATE = W_DATE---
    IMPORTING---
      NEWDATE = W_DATE1.---
  Concatenate W_DATE0(4) W_DATE4(2) W_DATE+6(2) into lv_Idate.---
  Concatenate W_DATE10(4) W_DATE14(2) W_DATE1+6(2) into lv_odate.---
  Concatenate '0' W_DATE4(2) '.' W_DATE0(4) into lv_date2.---
   Concatenate '0' W_DATE14(2)  W_DATE10(4) into lv_date1.---
CALL FUNCTION 'UMC_CALDAY_TO_FISCPER'---
   EXPORTING---
    I_PERIV    = 'K1'---
    I_CALDAY   = lv_Idate---
   IMPORTING---
     OUTPUT = lv_date1.---
CALL FUNCTION 'UMC_CALDAY_TO_FISCPER'---
   EXPORTING---
    I_PERIV    = 'K1'---
    I_CALDAY   = lv_odate---
   IMPORTING---
     OUTPUT = lv_date2.---
*l_t_range-iobjnm = '0FISCPER'.---
l_t_range-fieldname = '/bic/0FISCPER'.---
l_t_range-sign = 'I'.---
l_t_range-option = 'GE'.---
l_t_range-low = lv_date1.---
*l_t_range-high = lv_date2.---
  if l_idx <> 0.---
    modify l_t_range index l_idx.---
  else.---
    append l_t_range.---
  endif.---
  p_subrc = 0.---
$$ end of routine - insert your code only before this line         ----
endform.---
-Ashwin
Edited by: ashwin kumar on Jun 16, 2010 10:04 AM

Answer 1

1. In the future, please use a meaningful subject line, like "loop not performing last iteration." Just saying "Help in my java code" is useless. We know you need help with your Java code, else you wouldn't be posting here.
2. Repost your code without those annoying superfluous asterisks, and with proper indentation in the section that they are currently polluting. It's too hard to read as-is.