Change in user exit for DP91

Question

hi all
i want to delet records from t_covp (internal table) where blenr does not exit in ADO1DLI, if it exist , need to check dlinr of AD01DLI and AD01DLI, if it doesnt match, delete it from T_covp, it it matches the records will stay in >T_covp.
can any body guide me how to write code for that
I have written it but there r performance issues...
loop at itab_covp.
    select dlinr belnr from ad01dli INTO itab_AD01DLI where belnr <> itab_covp-belnr .
       DELETE t_covp where belnr = itab_AD01DLI-belnr.
    endselect.
     SELECT  Xdlinr Xbelnr Y~dopen
     INTO (dlinr, belnr, dopen)
     FROM AD01DLI as X INNER JOIN AD01DLIEF AS Y
     ON XDLINR <> Ydlinr
     WHERE X~belnr = itab_covp-belnr
     and Y~dopen <> ''.
     delete t_covp where belnr = belnr.
     endselect.
endloop.
can we make it more specific using only one select query
rgds
anup

Answer 1

Hi Anupama,
Try to write the code like this..
loop at itab_covp.
    select single dlinr belnr from ad01dli INTO AD01DLI-dlinr AD01DLI-belnr
    where belnr =  itab_covp-belnr .
    if sy-subrc <> 0.     "if record doesn't exist
      DELETE t_covp.
    else.                     "If record exist
      SELECT single * from  AD01DLIEF into AD01DLIEF
       where DLINR =  AD01DLI-dlinr and belnr = itab_covp-belnr and dopen <> ''.
       if sy-subrc <> 0.  "if record doesn't exist
         DELETE t_covp.
       endif.
    endif.
endloop.
  This will be the correct logic for your requirement.
Thanks,
Sreenivas Reddy Maddi