>hi ,
>all tables are free,
>i try as under,
>but can i do that with out index,

this is not perfect but can work:

USE tty in 0
USE sss in 0

replace IN sss ;
   FOR tel==LOOKUP(tty.tel,tel,tty.tel) AND NOT EOF('tty') ;
   Typ with tty.Typ