FoxPro/Visual FoxPro - controla errores

Holas Como controlar un error utilizo este procedimiento

PROCEDURE Errores
PARAMETERS merror, mess, mess1, mprog, mlineno
nOpc = MESSAGEBOX("Ha ocurrido un error:"+CHR(13)+CHR(13)+;
'Número de error:'+LTRIM(STR(merror))+CHR(13)+;
'Mensaje de error:'+mess+CHR(13)+;
'Línea de código con error:'+mess1+CHR(13)+;
'Número de línea del error:'+LTRIM(STR(mlineno))+CHR(13)+;
'Programa con error:'+mprog,2+48)
DO CASE
CASE nOpc = 3 && Anular
CANCEL
CASE nOpc = 4 && Reintentar
RETRY
CASE nOpc = 5 && Ignorar
RETURN .T.
ENDCASE
RETURN

Pero tengo problemas con los usuarios asi que quisiera uno k le indique el error al usuario y le obligue salir del sistema y k me grabe en una tabla o archivo el error para poder solucionarlo

Ya tienes los datos ahi, solo necesitas tener alguna tabla donde grabarlos y hacer un quit.