Hi Chaim

Make sure there is an index on tablename in tableids like this...

INDEX ON PADR(ALLTRIM(tablename),10) tag tablname

This would be faster...

function addtableid
lparameter ctablename
SEEK padr(alltrim(cTableName),10) in tableids
iid=tableids.tableid
replace tableid with tableid+1 in tableids
return iid
endfunc