** таблица слов
create table word (wordid i primary key, word c( 30 ))
** таблица шифров
create table code (codeid i primary key, code c( 10 ), desc m)
** таблица перекресных ссылок
create table cross (wordid i references word, codeid i references code, primary key bintoc(wordid,  4 ) + bintoc(codeid,  4 ) tag key)

select code, desc ;
from word ;
    inner join cross on work.wordid = cross.wordid;
        inner join code on cross.codeid = code.codeid;
where word like ?pcWord

* get desc
lparameters tcWord

local i, lnCode
local array laCode( 1 )

select word
locate for word = m.tcWord
if !found()
   return
endif
lnCount = alines(laCode, strtran(word.desc, chr( 32 ), chr( 13 )))
select code
for i =  1  to m.lnCount
     locate for code = laCode[m.i]
     if found()
     * куда-то сохраняем результат
     endif
endfor