Routine in Infopackage data selection doesnt give appropriate results...

Question

Hi Gurus,
I need to pull data into PSA (BW 3.5) based on a certain selections in the Infopackage. Selection is based on specific values of Infoobject 0PLANT , however, as these values are multiple and do not fall in a specific range I have written a routine to derive these values.
The routine  does the following steps :
- creates an internal table from /bio/mplant and deletes the plant values that I do not wish to consider in the extraction.
- delete data from l_t_range for fieldname = 'PLANT'
- Appends data from the internal table to l_t_range.
However, when I execute the infopackage, the extraction is done for ALL the 0PLANT values i.e it includes the data for 0PLANT value which have been delete from the internal table.
My routine is :
$$ end of global - insert your declaration only before this line   -
    InfoObject      = 0PLANT
    Fieldname       = PLANT
    data type       = CHAR
    length          = 000004
    convexit        =
form compute_PLANT
  tables   l_t_range      structure rssdlrange
  using    p_infopackage  type rslogdpid
           p_fieldname    type rsfnm
  changing p_subrc        like sy-subrc.
      Insert source code to current selection field
$$ begin of routine - insert your code only below this line        -
TYPES ls_range like l_t_range.
data: l_idx like sy-tabix.
DATA: lt_plant like /bi0/mplant OCCURS 0 with header line.
          SELECT PLANT from /bi0/mplant into lt_Plant WHERE objvers = 'A
          ENDSELECT.
          delete lt_plant WHERE plant = 'W206'.
          delete lt_plant WHERE plant = 'WF11'.
          delete lt_plant WHERE plant = 'W945'.
          DELETE lt_plant WHERE plant = 'W530'.
          read table l_t_range with key
               fieldname = 'PLANT'.
          l_idx = sy-tabix.
          DELETE l_t_range where fieldname = 'PLANT'.
          Loop at lt_plant.
                l_t_range-sign = 'I' .
                l_t_range-low = lt_plant-plant.
                l_t_range-OPTION = 'EQ'.
                append l_t_range.
          endloop.
          modify l_t_range index l_idx.
          p_subrc = 0.
$$ end of routine - insert your code only before this line         -
endform.
Any bugs in the routines ?

Answer 1

try this one:
Loop at lt_plant.
if lt_plant-plant ne 'WF11' or lt_plant-plant ne 'W945' or lt_plant-plant ne 'W530'.
l_t_range-sign = 'I' .
l_t_range-low = lt_plant-plant.
l_t_range-OPTION = 'EQ'.
append l_t_range.
endif.
endloop.
or
don't use a table with header ( use a standard table and use a work area to access the table ) and do an other select like this:
SELECT PLANT from /bi0/mplant
into corresponding fields of table lt_Plant
WHERE objvers = 'A
and plant ne 'WF11'
and plant ne 'W945'
and plant ne 'W530'.
I hope it helps...
Kind regard.
Tobias
Edited by: Tobias Kreuser on Aug 23, 2010 11:34 AM