Nadya,

I wish I had time to look at it deeper right now, but I don't. I appears the first record won't get processed like a new address, because you have this before the loop:

lcAddress = upper(Srce.City+Srce.Address+Srce.LotUnit)

You should have this instead (you have it commented out above that point)

lcAddress = replicate('Z',40) && upper(Srce.City+Srce.Address+Srce.LotUnit)

And I don't mean to nit-pick *grin*, but I think it would be more manageable if some of the code was broken into separate procedures. I like for each individual procedure come as close to fitting on a screen or a single piece of paper as possible. Make sure the outer procedure, with the loop and address check, work properly, and calling functions to do the bulk of the work. Then you don't have to mess with the main procedure anymore.

>Hi Steve,
>
>It looks like I almost solved the problem. I just noticed a problem with Geo index, though.
>
>It's current expression is

>UPPER(CITY+ADDRESS+LOTUNIT+DOCTYPE+ ;
>STR(MORTGAGE,10)+DOCKETREF+STR(BOOK,5)+STR(PAGE,4))

>
>But it should be something like STR(9999999999-MORTGAGE,10) instead, because I want larger mortgages to go first (with sales record) and "piggy back" mortgages should create a new record.
>