Is there any alternative command or technique instead of "cancel" command at the interrruptmessage procedure. Because "cancel" don't prevent the query it also quit the whole program. I want to cut only running query in case of necessity.

Thanks in advance

Altun

cQryStr = "select * from customer where name like 'A%'"
cEscState = set("escape")

set Escape on
ON ESCAPE DO interrruptmessage
&cQryStr
set Escape &cEscState



*****
procedure interrruptmessage()

if messagebox("To stop the query  press 'OK', to continue press 'Cancel' button.", 1+32)=1
        messagebox("Query cancelled", 0+16)
	cancel		
	return .F.
else
	wait window "Query is continuing." nowait	
endif
return .F.

ENDPROC