>>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.