You beat me to it. Nothing unusual about that <g>.
>
>SELECT employee
>* Assuming that you have index on ckey with TAG ckey
>SET ORDER TO ckey
>SELECT csrtable
>SET RELATION TO csrkey INTO employee
>REPLACE locfle WITH employee.locfle FOR FOUND("employee")
>
BTW, It's better to use SCAN...ENDSCAN instead of DO WHILE.
>
>>
>>sele csrtable
>>go top
>>do while .not. eof()
>> rch = csrkey
>> sele employee
>> go top
>> locate for rch=ckey
>> if found()
>> lc = locfle
>> sele csrtable
>> replace locfle with lc
>> enddo
>> skip
>>enddo
>>