Generic Exception Handeling

Question

I need the executed SQL and variables with my error. I got this far:
<code>
PROCEDURE error_mail IS
pMessage VARCHAR2(2000);
pSender VARCHAR2(80) := '[email protected]';
pRecipient VARCHAR2(80) := '[email protected]';
pSubject VARCHAR2(80) := 'Error Package : LGX_P_ANIM';
mailhost CONSTANT VARCHAR2(30) := 'mail.home.co.za';
crlf CONSTANT VARCHAR2(2):= CHR(13) || CHR(10);
mesg VARCHAR2(1000);
mail_conn utl_smtp.connection;
l_str VARCHAR2(255);
BEGIN
select substr(sql_text,1,255) into l_str from sys.V_$SQL where rownum = 1
order by FIRST_LOAD_TIME asc;
mail_conn := utl_smtp.open_connection(mailhost, 25);
pMessage := 'Prror Mail SAYS :' || chr(13) || 'LOCAL_TRANSACTION_ID:' ||
DBMS_TRANSACTION.LOCAL_TRANSACTION_ID || chr(13) || 'FORMAT_CALL_STACK:' ||
DBMS_UTILITY.FORMAT_CALL_STACK || chr(13) || 'FORMAT_ERROR_BACKTRACE:' ||
DBMS_UTILITY.FORMAT_ERROR_BACKTRACE || chr(13) || 'FORMAT_ERROR_STACK:' ||
DBMS_UTILITY.FORMAT_ERROR_STACK || chr(13) || 'GET_CPU_TIME:' ||
DBMS_UTILITY.GET_CPU_TIME || chr(13) || 'GET_TIME:' || DBMS_UTILITY.GET_TIME || chr(13);
pMessage :=  l_str || chr(13) || '------------------------------------------------' || chr(13) || pMessage ;
mesg := 'Date: ' ||
TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss') || crlf ||
'From: <'|| pSender ||'>' || crlf ||
'Subject: '|| pSubject || crlf ||
'To: '||pRecipient || crlf || '' || crlf || pMessage;
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, pSender);
utl_smtp.rcpt(mail_conn, pRecipient);
utl_smtp.data(mail_conn, mesg);
utl_smtp.quit(mail_conn);
EXCEPTION
WHEN OTHERS THEN
NULL;
END error_mail;
</code>

Answer 1

Te reason i do it this way is to have a generic exception handler. It is important to get the variables. I need the culprit ID. The DB consists of 17 000 000 animal records and even more settings for each animal. We get about 100 - 200 single row sub-query errors each day, because the data gets messed up by the secretaries. I need to get the animal ID with the error report that way i can fix the error in seconds instead of running multiple Queries to find the issue. The other problem is the DB is very Busy running large debug queries is not really possible. The solution thus far gives me some answers but I got 100 emails yesterday and they were all the same. How do i get everything from the current session.
CURRENT CODE:
PROCEDURE error_mail IS
pMessage   VARCHAR2(2000);
pSender      VARCHAR2(80) := '[email protected]';
pRecipient VARCHAR2(80) := '[email protected]';
pSubject   VARCHAR2(80) := 'Error Package : LGX_P_ANIM';
mailhost  CONSTANT VARCHAR2(30) := 'mail.home.co.za';
crlf      CONSTANT VARCHAR2(2):= CHR(13) || CHR(10);
mesg      VARCHAR2(2000);
mail_conn utl_smtp.connection;
l_str VARCHAR2(1000);
l_id VARCHAR2(100);
BEGIN
   --select username|| '-' ||sql_text into l_str from v$session, v$sql where audsid = l_Sid and v$session.sql_address = v$sql.address;
   select substr(sql_text,1,999),sql_id into l_str,l_id from v$sql where address = (SELECT prev_sql_addr FROM v$session WHERE audsid = userenv('SESSIONID')) and rownum = 1;
   l_id := l_id || '-' || logix.transpose('select name || ''-'' || value_string from v$sql_bind_capture where sql_id = ''' || l_id || '''',';');
   mail_conn := utl_smtp.open_connection(mailhost, 25);
   pMessage := 'Prror Mail SAYS :' || chr(13) ||
   'LOCAL_TRANSACTION_ID:' || l_id  || chr(13) ||
   'SESSIONID:' || userenv('SESSIONID')  || chr(13) ||
   'FORMAT_CALL_STACK:' || DBMS_UTILITY.FORMAT_CALL_STACK  || chr(13) ||
   'FORMAT_ERROR_BACKTRACE:' || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE   || chr(13) ||
   'FORMAT_ERROR_STACK:' || DBMS_UTILITY.FORMAT_ERROR_STACK      || chr(13) ||
   'GET_CPU_TIME:' || DBMS_UTILITY.GET_CPU_TIME      || chr(13) ||
   'GET_TIME:' || DBMS_UTILITY.GET_TIME || chr(13);
   pMessage :=  l_str || chr(13) || '--------------------------------------------------' || chr(13) || pMessage ;
   mesg := 'Date: ' ||
        TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss') || crlf ||
           'From: <'|| pSender ||'>' || crlf ||
           'Subject: '|| pSubject || crlf ||
           'To: '||pRecipient || crlf || '' || crlf || pMessage;
   utl_smtp.helo(mail_conn, mailhost);
   utl_smtp.mail(mail_conn, pSender);
   utl_smtp.rcpt(mail_conn, pRecipient);
   utl_smtp.data(mail_conn, mesg);
   utl_smtp.quit(mail_conn);
EXCEPTION
  WHEN OTHERS THEN
    NULL;
END error_mail;
CURRENT OUTPUT
SELECT PAR_ID FROM IRISDATA30.PERIOD P WHERE ANI_ID = :B2 AND RELATION_TYPE = 'O' AND NVL(PERIOD_END_DTM,:B1 ) = (SELECT MAX(NVL(PERIOD_END_DTM,:B1 )) FROM IRISDATA30.PERIOD WHERE TO_CHAR(PERIOD_BEGIN_DTM,'DD-MON-YYYY') <= :B1 AND RELATION_TYPE = 'O' AND ANI_ID = P.ANI_ID)
Prror Mail SAYS :
LOCAL_TRANSACTION_ID:1jy7g0zrzqmpm-':B2-548721521';':B1-08/23/11 10:40:14';':B1-';':B1-08/23/11 10:40:14'
SESSIONID:18089990
FORMAT_CALL_STACK:----- PL/SQL Call Stack -----
  object      line  object
  handle    number  name
c000000232174828        24  package body INTERGIS.LGX_P_ANIM
c000000232174828       264  package body INTERGIS.LGX_P_ANIM
c000000232174828       377  package body INTERGIS.LGX_P_ANIM
c000000232174828       186  package body INTERGIS.LGX_P_ANIM
c00000022661c510         1  anonymous block
FORMAT_ERROR_BACKTRACE:ORA-06512: at "INTERGIS.LGX_P_ANIM", line 246
FORMAT_ERROR_STACK:ORA-01422: exact fetch returns more than requested number of rows
GET_CPU_TIME:35754
GET_TIME:22400142Edited by: user12991926 on Aug 24, 2011 9:03 AM
Edited by: user12991926 on Aug 24, 2011 9:04 AM