From 5d3a97cbfca38172a0b39e4860c7598fe403ed8d Mon Sep 17 00:00:00 2001
From: Jan Kvetina <jan.kvetina@gmail.com>
Date: Mon, 31 Jan 2022 06:58:03 +0100
Subject: [PATCH] Try to log error on log error

---
 packages/app.sql | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/packages/app.sql b/packages/app.sql
index 7e90ba0..8e4bcc4 100644
--- a/packages/app.sql
+++ b/packages/app.sql
@@ -2455,6 +2455,18 @@ CREATE OR REPLACE PACKAGE BODY app AS
     WHEN OTHERS THEN
         COMMIT;
         --
+        BEGIN
+            rec.flag        := app.flag_error;
+            rec.action_name := 'FATAL_ERROR';
+            rec.payload     := DBMS_UTILITY.FORMAT_ERROR_STACK || CHR(10) || DBMS_UTILITY.FORMAT_CALL_STACK;
+            --
+            INSERT INTO logs VALUES rec;
+            COMMIT;
+        EXCEPTION
+        WHEN OTHERS THEN
+            NULL;
+        END;
+        --
         DBMS_OUTPUT.PUT_LINE('-- NOT LOGGED ERROR:');
         DBMS_OUTPUT.PUT_LINE(DBMS_UTILITY.FORMAT_ERROR_STACK);
         DBMS_OUTPUT.PUT_LINE(DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);