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;

Paulo A. Costa

Natural de Salvador-BA, é graduado em Analise de Sistemas pela Universidade Católica do Salvador (2003), e especialista em Engenharia de Software pela Universidade Salvador (2010). Exerce atualmente o cargo de Analista Judiciário na Justiça do Trabalho.