extracted objects

2025-12-17 13:02:12 +01:00
commit 7dd4ea08e1
195 changed files with 70591 additions and 0 deletions
--- a/docs/packages/XLIB_LOG.md
+++ b/docs/packages/XLIB_LOG.md
@@ -0,0 +1,58 @@
+# XLIB_LOG
+
+## Package Specification
+
+```sql
+PACKAGE "XLIB_LOG"
+IS
+/*=========================================================================
+
+  Purpose  : Application Logging
+
+  License  : Copyright (c) 2010 Dietmar Aust (opal-consulting.de)
+             Licensed under a BSD style license (license.txt)
+             https://github.com/daust/JasperReportsIntegration
+
+  Date        Author          Comment
+  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+  06.01.2010  D. Aust         Initial creation
+  13.05.2012  D. Aust         insert fails when created_by user value too large
+
+=========================================================================*/
+
+PROCEDURE m (
+      p_module      IN   VARCHAR2,
+      p_msg         IN   VARCHAR2,
+      p_type    IN   VARCHAR2 DEFAULT 'DEBUG',
+      p_level        PLS_INTEGER DEFAULT 15
+   );
+END;```
+
+## Package Body
+
+```sql
+PACKAGE BODY "XLIB_LOG"
+IS
+
+   PROCEDURE m (
+      p_module      IN   VARCHAR2,
+      p_msg         IN   VARCHAR2,
+      p_type    IN   VARCHAR2 DEFAULT 'DEBUG',
+      p_level   IN   PLS_INTEGER DEFAULT 15
+   )
+   IS
+      PRAGMA AUTONOMOUS_TRANSACTION;
+   BEGIN
+      INSERT INTO xlib_logs
+                  (log_module, log_msg, log_type, log_level, log_created_on, log_created_by
+                  )
+           values (   substr(p_module,1,100)
+                    , substr(p_msg,1,4000)
+                    , substr(p_type,1,20)
+                    , p_level
+                    , sysdate
+                    , substr(nvl(v('APP_USER'), user),1,100)
+                  );
+      COMMIT;
+   END;
+END;```