Load data only for current month using ABAP Routine

Question

Hi Everyone,
I am loading data from R/3 using the 0HR_PA_OS_1 extractor. This requirement is to load the position numbers from R/3. Using the extractor for a given position 28 I get the following dataset results.
CALMONTH  POSITION
11-2004           28
12-2004           28
01-2005           28
02-2005           28
      |
07-2007          28     CURRENT DATE
Now when I pull data in BW I only want to load the record for most current i.e. 07-2007. I DO NOT want that ALL the records since the day the position was created should be loaded.
Now I do understand this can be achieved using a ABAP routine in the INFOPACKAGE. Below is the routine that I am using and what it is doing is that it is only bringing in the first record.
data: l_idx like sy-tabix.
  clear: l_idx.
  read table l_t_range with key
       fieldname = 'CALMONTH'.
  l_idx = sy-tabix.
Current month only
  l_t_range-low = sy-datum(6).      "Current month
l_t_range-high.
  l_t_range-option = 'EQ'.                           "equals
l_t_range-sign = 'I'.
  modify l_t_range index l_idx.
  p_subrc = 0.
Can anyone suggest a solution as to why this is happening?
Thanks,
Rahul

Answer 1

One explanation would be
- If there is no CALMONTH selection values specified in the selection tab, l_t_range would be empty. This would mean there would be no line for CALMONTH selection, and the code won't modify the l_t_range.
If this is true, you need to check sy-subrc after reading from the itab.
data: l_idx like sy-tabix.
clear: l_idx.
read table l_t_range with key fieldname = 'CALMONTH'.
if sy-subrc = 0.
l_idx = sy-tabix.
* Current month only
l_t_range-low = sy-datum(6). "Current month
* l_t_range-high.
l_t_range-option = 'EQ'. "equals
* l_t_range-sign = 'I'.
modify l_t_range index l_idx.
else.   
move 'CALMONTH' to l_t_range-fieldname.
l_t_range-low = sy-datum(6).
l_t_range-sign = 'I'.
l_t_range-option = 'EQ'.
append l_t_range.
endif.
p_subrc = 0.