ready for next release

hyee · Nov 24, 2023 · 811c440 · 811c440
1 parent 0a20ea7
commit 811c440
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 4 deletions.
diff --git a/oracle/ora/TanelPoder/smem.sql b/oracle/ora/TanelPoder/smem.sql
@@ -23,6 +23,7 @@ USING  (statistic#)
 WHERE   NAME LIKE '%memory%'
 ORDER  BY inst, sid, NAME;
 
+--alter session set events 'immediate trace name PGA_DETAIL_GET level &pid' 
 PRO Memory info from v$process_memory(run 'oradebug pmem &v1 &v2' before this script for more detail)
 PRO =================================================================================================
 SELECT *
@@ -31,6 +32,7 @@ FROM   TABLE(gv$(CURSOR (
                    userenv('instance') inst,
                    s.sid,
                    p.spid,
+                   p.pid,
                    pm.category,
                    allocated,
                    used,'|' "|",

diff --git a/oracle/ora/awr/awrextr.sql b/oracle/ora/awr/awrextr.sql
@@ -16,6 +16,7 @@ DECLARE
     root VARCHAR2(512);
     expr VARCHAR2(512);
     dump BFILE;
+    log  UTL_FILE.FILE_TYPE;
     len  NUMBER;
     std  DATE;
     edd  DATE;
@@ -27,9 +28,9 @@ DECLARE
     job  VARCHAR2(128) := 'AWREXTR_'||to_char(SYSDATE,'YYMMDDHH24MISS');
     own  VARCHAR2(128);
     val  VARCHAR2(30);
-    a     INT;
-    b     INT;
-    r     VARCHAR2(300);
+    a    INT;
+    b    INT;
+    r    VARCHAR2(300);
 BEGIN
     dbms_output.enable(null);
     SELECT MAX(directory_name), MAX(directory_path)
@@ -40,6 +41,13 @@ BEGIN
         raise_application_error(-20001, 'Cannot access directory: ' || :V1);
     END IF;
 
+    BEGIN
+        log:=sys.utl_file.fopen(dir,file||'.log','w');
+        sys.utl_file.fclose(log);
+    EXCEPTION WHEN OTHERS THEN
+        raise_application_error(-20001, 'No read & write access to directory '||dir);
+    END;
+
     $IF dbms_db_version.version>17 $THEN
         IF dbms_utility.directory_has_symlink(dir)=1 THEN
             FOR i IN 1..2 LOOP

diff --git a/oracle/ora/awr/awrload.sql b/oracle/ora/awr/awrload.sql
@@ -19,6 +19,7 @@ DECLARE
     tab   VARCHAR2(512) := upper(regexp_substr(:V3,'^\D.*$'));
     root  VARCHAR2(2000);
     dump  BFILE;
+    log   UTL_FILE.FILE_TYPE;
     len   NUMBER;
     stage VARCHAR2(30) := 'DBCLI_AWR';
     hdl   NUMBER;
@@ -74,6 +75,13 @@ BEGIN
             raise_application_error(-20001, 'Cannot access file: ' || root || file || '.dmp');
         END IF;
     END;
+
+    BEGIN
+        log:=sys.utl_file.fopen(dir,file||'.log','w');
+        sys.utl_file.fclose(log);
+    EXCEPTION WHEN OTHERS THEN
+        raise_application_error(-20001, 'No read & write access to directory '||dir);
+    END;
     
     IF instr(file,'sqlmon')>0 THEN
         hdl := null;

diff --git a/oracle/oracle.lua b/oracle/oracle.lua
@@ -753,7 +753,7 @@ function oracle:onload()
          PROXY_USER_NAME=proxy_user,
          bigStringTryClob="true",
          processEscapes='false',
-         ['oracle.jdbc.freeMemoryOnEnterImplicitCache']="true",
+         ['oracle.jdbc.freeMemoryOnEnterImplicitCache']="false",
          ['oracle.jdbc.useThreadLocalBufferCache']="false",
          ['v$session.program']='SQL Developer',
          ['oracle.jdbc.defaultLobPrefetchSize']="2097152",