Urgent help on difficult programming required -remove select statement

Question

loop at zt_wbs.
  clear   zt_cobrb.
  refresh zt_cobrb.
Select settlement rules
  select distinct anln1 anln2 from cobrb
         into corresponding fields of table zt_cobrb
         where objnr = zt_wbs-objnr and
               perbz = 'GES'        and
               konty = 'AN'.
    if sy-subrc = 0.
      describe table zt_cobrb lines i.
      if i = 1.
    unique settlement rule
        read table zt_cobrb index 1.
        zt_changes-equnr = zt_wbs-equnr.
        zt_changes-anln1 = zt_cobrb-anln1.
        zt_changes-anln2 = zt_cobrb-anln2.
        collect zt_changes.
      endif.
    endif.
endloop.
hii...i can modify the structure of table zt_cobrb  if required. please tell me a code in which i can carry my select statements outside the loop.and do the same thing.
remember there is a distinct keyword after select statement and i have to loop at zt_wbs having one of the fields objnr.

Answer 1

loop at zt_wbs.
  clear   zt_cobrb.
  refresh zt_cobrb.
Select settlement rules
  select distinct anln1 anln2 from cobrb
         into corresponding fields of table zt_cobrb
         where objnr = zt_wbs-objnr and
               perbz = 'GES'        and
               konty = 'AN'.
    if sy-subrc = 0.
      describe table zt_cobrb lines i.
      if i = 1.
    unique settlement rule
        read table zt_cobrb index 1.
        zt_changes-equnr = zt_wbs-equnr.
        zt_changes-anln1 = zt_cobrb-anln1.
        zt_changes-anln2 = zt_cobrb-anln2.
        collect zt_changes.
      endif.
    endif.
endloop.
hii...i can modify the structure of table zt_cobrb  if required. please tell me a code in which i can carry my select statements outside the loop.and do the same thing.
remember there is a distinct keyword after select statement and i have to loop at zt_wbs having one of the fields objnr.