>>>Why you're not using SCAN here? FOR is a bit strange loop through the table.
>>
>>It can be done even simpler:
>>
>>

>>locate for rlock()
>>if eof()
>>  append blank
>>  ...
>>endif
>>

>
>Are you sure you can use such construct here?
>
>LOCATE FOR RLOCK() sounds a bit dangerous to me.

Looks perfectly safe (and rather ingenious) to me.