>>>>When an error occurs, my hander routine points to the offending line that is blank.(between paragraphs) It occurs on a certain line in the destroy event of a form. I know a line with no text can't be the problem.
>>>
>>>Does the previous line end on semicolon?
>>
>>nope, just a carriage return from previous line
>
>Is it the last line in the Destroy or some middle line? What if you delete it completely? I am guessing the previous statement caused the error after its completion... May be some object on the form could not be destroyed?
>
>Can you post the code in Destroy method (if it's not too long) and indicate the line with problem?

The ERROR is
"1 File 'lockrec.prg' does not exist. 136 SHIPPING_MAIN.DESTROY"

Exercpt of the code..................
else
repo form ship2 to prin
endi
NEXT &&TYPE P:&FF TO PRIN
ENDI

SET CONS ON
SET PRIN TO
SET PRIN OFF
LINE 136 is HERE!
MACT = 'SHIPSRC0-2001'
USE &LD:JONTRANS
APPE BLAN
DO LOCKREC
IF OKTOSAVE
REPL ACTION WITH Mcall
REPL WHO WITH NAME
REPL THEDATE WITH DATE()