create cursor tt (key i, met i)

for i= 1  to  10 
	insert  into tt (key) values (i)
endfor

insert  into tt (key) values ( 3 )
insert  into tt (key) values ( 5 )
insert  into tt (key) values ( 5 )
insert  into tt (key) values ( 5 )
insert  into tt (key) values ( 7 )

index on deleted() tag del binary
index on key tag key


select key, count(*) as times ;
	from tt ;
	group by key ;
	having count(*)> 1 

update tt set met =  1  ;
	from tt ;
	where key in (  select key;
						from tt ;
						group by key ;
						having count(*)> 1   )
						
select * ;
	from tt