Add rwl_pool_mix_use/lifetime to oltp workload session pool

Author: bengsig

oltp/oltp.rwl

@@ -387,6 +387,11 @@ rwl_daily_html := "daily.html";
 # You can modify the aggresiveness of logons by changing the time
 # OCI waits until it disconnects an unused session in the pool
 # rwl_pool_release := 5.0; # default is 5.0
+# The next two will set OCI_ATTR_SPOOL_MAX_USE_SESSION or 
+# OCI_ATTR_SPOOL_MAX_LIFETIME_SESSION. Default are not set (null)
+# implying there will be no max use or lifetime
+# rwl_pool_max_use;
+# rwl_pool_max_lifetime;
 
 # By default, an instance level awr report is gathered for all
 # instances that are open. If you also want to create a global

oltp/parameters.rwl

@@ -2,6 +2,7 @@
 # Licensed under the Universal Permissive License v 1.0
 # as shown at https://oss.oracle.com/licenses/upl/
 
+# bengsig  10-oct-2023 - sessionpool max use/lifetime
 # bengsig  31-jul-2023 - rategradientstep
 # bengsig  17-jun-2023 - add mtit_partitions parameter
 # bengsig  23-may-2024 - Fix s24 full scan message
@@ -67,6 +68,8 @@ double rampfactor := 0.1;
 integer rwl_min_pool := 3;
 integer rwl_max_pool := 10;
 double rwl_pool_release := 5.0;
+integer rwl_pool_max_use;
+integer rwl_pool_max_lifetime;
 double max_sessionwait := 30; # how long to wait max to get a session
 
 # Reduce if you want more parsing, increase if you want less
@@ -631,6 +634,8 @@ if show_changed_values then
     end if;
     printline "rwl_max_pool="||rwl_max_pool;
     printline "rwl_pool_release="||rwl_pool_release;
+    printf "rwl_pool_max_use=%Nd\n", rwl_pool_max_use;
+    printf "rwl_pool_max_lifetime=%Nd\n", rwl_pool_max_lifetime;
   else
     if pool_type = "drcp" then
       printline "normal pool uses drcp";

oltp/run_user.rwl

@@ -2,6 +2,7 @@
 # Licensed under the Universal Permissive License v 1.0
 # as shown at https://oss.oracle.com/licenses/upl/
 
+# bengsig  10-oct-2024 - rwl_pool_max_use/lifetime
 # bengsig  11-sep-2023 - max_sessionwait
 # bengsig  21-mar-2023 - connection pool
 # bengsig  25-oct-2022 - External control
@@ -57,6 +58,8 @@ $if $RWLOLTP_SIDE = "2" $then
     $if pool_type = "sessionpool" $then
       sessionpool rwl_min_pool .. rwl_max_pool
       release rwl_pool_release
+      $if rwl_pool_max_use is not null $then release count rwl_pool_max_use $endif
+      $if rwl_pool_max_lifetime is not null $then release every rwl_pool_max_lifetime $endif
       $if xc_enabled $then
          wait xc_sessionwait then call_failure("No session available due to ORA-" oraerror)
       $else
@@ -138,6 +141,8 @@ $else
     $if pool_type = "sessionpool" $then
       sessionpool rwl_min_pool .. rwl_max_pool
       release rwl_pool_release
+      $if rwl_pool_max_use is not null $then release count rwl_pool_max_use $endif
+      $if rwl_pool_max_lifetime is not null $then release every rwl_pool_max_lifetime $endif
       $if xc_enabled $then
          wait xc_sessionwait then call_failure("No session available due to ORA-" oraerror)
       $else