CANCEL doesn't interrupt the query - the query was already interrupted with the ESC key.

You must just consider how you want to handle the interruption, for instance, tell the user that the query was interrupted and that the process can't continue:

if llInterrupted
  MessageBox("The process was interrupted.")
  return
endif

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