Changin the code of this form to include current month + the next 8 months

Question

Hi All,
please i need to change the code of this BW ABAP routine to filter the data between the current month + the next 8 months
example:
if i execute my BW DTP (data transfer process) with this 0calmonth date 201007 i want to extract data between 201007 and 201103
actually the code is:
form compute_
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 = ' '.
l_idx = sy-tabix.
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
can you help me please on how should be the ABAP code.
thanks
Bilal

Answer 1

Hi All,
this is the right code for this routine BW:
*&  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       = CALMONTH
    data type       = NUMC
    length          = 000006
form compute_CALMONTH
  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.
data : v_date like sy-datum.
data : v_new_date like sy-datum.
v_date = sy-datum.
read table l_t_range with key
fieldname = 'CALMONTH'.
l_idx = sy-tabix.
l_t_range-iobjnm = '0CALMONTH'.
l_t_range-FIELDNAME = 'CALMONTH'.
l_t_range-sign = 'I'.
L_T_RANGE-OPTION = 'BT'.
l_t_range-low = v_date+0(6).
    CALL FUNCTION 'DATE_CREATE'
    EXPORTING
      anzahl_monate = 8
      datum_ein = v_date
    IMPORTING
      datum_aus = v_new_date.
l_t_range-high = v_new_date+0(6).
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.