It's not magic code, it's SQL. If you spend a day or two, and try to learn SQL, you will save a looot of time and code lines.

>hi,
>thank you so much, also it work,
>but this is what i can call it magic gode.
>
>regards.
>
>>>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
>>