>to all
>====================
>select h
>if lock()
>append blank
>replace x with z
>endif
>unlock
>=====================
>this abbreviated piece of code is the root of my problem. if a file has records in it, this works fine. but if i zap the file it won't work. in other words if the file is empty it wont work. it seems to be a problem with one particular file only. with other files i dont run in to the problem. any suggestions?
>thanks
>frank

you are locking the wrong record...
Try...
select h
append blank
if lock()
replace x with z
unlock
endif