select max(bvtyp) as maxbvtyp, lifnr, zwaers ;
     from lfbkmax      group by lifnr, zwaers       into cursor result 

scan all
  select lfbkmax    
  delete for lifnr = result.lifnr and zwaers = result.zwaers and bvtyp  <> result. maxbvtyp
  select result  
endscan

select lfbkmax   
   pack
quit

 select max(bvtyp) as maxbvtyp, count(*) as cnt, lifnr, zwaers, bvtyp ;
  from lfbkmax group by lifnr, zwaers into cursor result

 scan all &&for cnt > 1
  select lfbkmax
   delete for lifnr = result.lifnr ;
        and zwaers = result.zwaers ;
        and bvtyp  <> result.maxbvtyp
   select result
   set odometer to 1000
 endscan

 select count(*) as cnt2, lifnr, zwaers ;
  from result group by lifnr, zwaers, bvtyp into cursor res2

 scan for cnt2 = 1
  select lfbkmax
   delete for lifnr = res2.lifnr and zwaers = res2.zwaers
   select res2
   set odometer to 1000
 endscan

 select lfbkmax  
 pack         

creat dbf lfbk (lifnr c (10) ;
 , banks c (3) ;
 , bankl c (30) ;
 , bankn c (30) ;
 , bkont c (2) ;
 , bvtyp c (3) ;
 , zwaers c (3))
 append from lfbkREZ.txt deli with tab