Como descobrir qual o erro que está acontecendo dentro de um bloco de dados no Oracle Forms 10g

Adicione o código abaixo em um Trigger “ON-ERROR” no bloco de dados.

DECLARE
 
 COD NUMBER := ERROR_CODE;
 TEXTO VARCHAR2(2000) := ERROR_TEXT;
 TIPO VARCHAR2(10) := ERROR_TYPE;
 DBCOD NUMBER := DBMS_ERROR_CODE;
 DBTEXTO VARCHAR2(2000) := DBMS_ERROR_TEXT;
 
BEGIN

   Alerta(COD || '*' || TIPO || '*' || TEXTO);
   Alerta(DBCOD || '#' || DBTEXTO);

END;