MESSAGE( ) (Función)
Devuelve la cadena con el mensaje de error actual o el contenido de la línea de programa que causó el error.
MESSAGE([1])
Valores devueltos
Character
Parámetros
- 1
Si se utiliza MESSAGE( ) en una rutina creada con ON ERROR, puede incluir el argumento opcional 1 para devolver el código fuente del programa que causó el error. Si el código fuente del programa no está disponible, MESSAGE(1) devolverá uno de los valores siguientes:- La línea completa del programa si la línea se sustituye por una macro.
- Un comando si la línea contiene un comando sin ninguna cláusula adicional.
- Un comando seguido de tres puntos (...) si la línea contiene un comando y cláusulas adicionales.
Observaciones
A diferencia de ERROR( ), MESSAGE( ) no se restaura con RETURN o RETRY.
Ejemplo
El siguiente ejemplo muestra el resultado de MESSAGE( ) y MESSAGE(1).
ON ERROR DO Errhand
** The next line should generate an error **
USE Nodatabase
ON ERROR && restore system error handler
PROCEDURE Errhand
? 'Line of code with error: ' + MESSAGE(1)
? 'Error number: ' + STR(ERROR( ))
? 'Error message: ' + MESSAGE( )