Start routine error ....,

Question

Hi
i written start routine in transformations. it showing some error. please suggest correct way.
TYPES : begin of fs_pctr,
              profit_ctr type /BIC/PZPRFTCTR-/BIC/ZPRFTCTR,
             end of fs_pctr.
DATA : it_pctr type standard table of fs_pctr,
            wa_pctr like line of it_pctr.
select /BIC/ZPRFTCTR from /BIC/PZPRFTCTR into table it_pctr where objvers  = 'A'.
loop at source_package assigning <source_fields>.
read table it_pctr with key profit_ctr = <source_fields>-/BIC/ZPRFTCTR.
   if sy-subrc ne 0.
    delete source_package.
   endif.
endloop.
Error: E:In the OO context either an INTO or an ASSIGNING specification or the         
addition "TRANSPORTING NO FIELDS" must be used. addition "TRANSPORTING          
NO FIELDS" must be used.
waiting for suggestions.
Regrds
swetha

Answer 1

Hi,
you can work around with the code as below... this would be much faster as you are deleting transaction data based on some master. so looping master is lesser and deleting transaction in that is faster.
Declaration
- internal table is correct but for work area declare as under
data wa_pctr type fs_pctr.
after select statement
loop at it_pctr into wa_Pctr.
delete source_package where /bic/zprftctr = wa_pctr-profit_ctr
endloop.
Hope this helps.
Regards
Raj