Ash includes top 8

Author: bengsig

admin/rwl306.sql

@@ -36,3 +36,9 @@ create table oltpxc
 , constraint oltpxc_pk primary key(key, hostname)
 )
 /
+
+alter table ashdata add
+( e7 number
+, e8 number
+)
+/

admin/rwloadsim.sql

@@ -153,6 +153,8 @@ create table ashdata
 , e4 number
 , e5 number
 , e6 number
+, e7 number
+, e8 number
 , other number
 , constraint ashdata_pk
   primary key(runnumber, second)

oltp/ashstep1.rwl

@@ -4,6 +4,9 @@
 # Licensed under the Universal Permissive License v 1.0
 # as shown at https://oss.oracle.com/licenses/upl/
 
+# bengsig   8-may-2023 - Top 6->8 included
+# bengsig     ??? 2019 - Creation
+
 # This is the first step that is done from runsys.rwl.
 # We do little more than finding the six top ash
 # events, save those in the rwloadsim schema
@@ -16,8 +19,8 @@
 #
 # Note that the ashdata table that will be filled in
 # step2 doens't have information about WHICH events
-# are included, it only has columns named E1 until E6.
-# The mapping of E1 .. E6 to event names is saved
+# are included, it only has columns named E1 until E8.
+# The mapping of E1 .. E8 to event names is saved
 # in the rwlash table that we insert into here
 # and later use in csvdata.rwl to create the final
 # gnuplot line
@@ -69,9 +72,11 @@ procedure ashstep1(string starttime) nostatistics
   writeline yt, ", nvl( E4,0)";
   writeline yt, ", nvl( E5,0)";
   writeline yt, ", nvl( E6,0)";
+  writeline yt, ", nvl( E7,0)";
+  writeline yt, ", nvl( E8,0)";
   writeline yt, ", nvl( OTHER,0)";
   writeline yt, "from (";
-  writeline yt, "select sample_time_utc,CPU,E1,E2,E3,E4,E5,E6,OTHER";
+  writeline yt, "select sample_time_utc,CPU,E1,E2,E3,E4,E5,E6,E7,E8,OTHER";
   writeline yt, "from (";
   writeline yt, "select sample_time_utc";
   writeline yt, ", event";
@@ -82,7 +87,7 @@ procedure ashstep1(string starttime) nostatistics
   writeline yt, ", decode(event";
   enum := 1;
   # stop after the top 6 events by count
-  for evgroup at systemdb and enum <= 6 loop
+  for evgroup at systemdb and enum <= 8 loop
     writeline yt, ", '"||event||"', 'E"||enum||"'";
     insevname;
     enum += 1;
@@ -105,6 +110,8 @@ procedure ashstep1(string starttime) nostatistics
   writeline yt, ", 'E4' as E4";
   writeline yt, ", 'E5' as E5";
   writeline yt, ", 'E6' as E6";
+  writeline yt, ", 'E7' as E7";
+  writeline yt, ", 'E8' as E8";
   writeline yt, ", 'CPU' as CPU";
   writeline yt, ", 'OTHER'as OTHER";
   writeline yt, ")))";

oltp/ashstep2.rwl

@@ -2,6 +2,7 @@
 # Licensed under the Universal Permissive License v 1.0
 # as shown at https://oss.oracle.com/licenses/upl/
 
+# bengsig   8-may-2023 - Top 6->8 included
 # bengsig  25-oct-2022 - External control
 # bengsig         2019 - Creation
 
@@ -32,26 +33,26 @@ end if;
 
 procedure ashstep2() nostatistics
   double second;
-  integer cpu, e1, e2, e3, e4, e5, e6, other;
+  integer cpu, e1, e2, e3, e4, e5, e6, e7, e8, other;
 
   # Get the query generated in step one
   sql 
     getash file resultsdir subdir runno "/getash.rws";
     define 1 second;
-    define 2 cpu, 3 e1, 4 e2, 5 e3, 6 e4, 7 e5, 8 e6, 9 other;
+    define 2 cpu, 3 e1, 4 e2, 5 e3, 6 e4, 7 e5, 8 e6, 9 e7, 10 e8, 11 other;
     array 100;
   end;
 
   sql insash 
     insert into ashdata
     ( second, cpu
-    , e1, e2, e3, e4, e5, e6
+    , e1, e2, e3, e4, e5, e6, e7, e8
     , other
     , runnumber )
-    values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10);
+    values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12);
     bind 1 second;
-    bind 2 cpu, 3 e1, 4 e2, 5 e3, 6 e4, 7 e5, 8 e6, 9 other;
-    bind 10 runno;
+    bind 2 cpu, 3 e1, 4 e2, 5 e3, 6 e4, 7 e5, 8 e6, 9 e7, 10 e8, 11 other;
+    bind 12 runno;
     array 100;
   end;
 

oltp/csvdata.rwl

@@ -2,6 +2,7 @@
 # Licensed under the Universal Permissive License v 1.0
 # as shown at https://oss.oracle.com/licenses/upl/
 
+# bengsig   8-may-2023 - Ash top 6->8 included
 # bengsig  15-mar-2022 - Add complex query wait/exec time
 # bengsig   1-nov-2022 - --no-awr should not cause error
 # bengsig  25-oct-2022 - Add wait/exec times per second
@@ -506,9 +507,11 @@ execute at rwloadsim
     ||e4||' '
     ||e5||' '
     ||e6||' '
+    ||e7||' '
+    ||e8||' '
     ||other||' '
     , cpu
-    , e1+e2+e3+e4+e5+e6 esum
+    , e1+e2+e3+e4+e5+e6+e7+e8 esum
     from ashdata 
     where runnumber = :1
     order by second
@@ -522,10 +525,10 @@ execute at rwloadsim
   string event;
 
   # The data in this table, i.e. the event names
-  # matching E1 .. E6 comes from ashstep1.rwl
+  # matching E1 .. E8 comes from ashstep1.rwl
   # We use this query both to write a comment
   # to the csv file such that a human will know
-  # which events E1 .. E6 are, and to assemble
+  # which events E1 .. E8 are, and to assemble
   # the plotline for gnuplot
   sql ashevents
     select '# '||to_char(enum+2,'FM9')||': '||ename
@@ -535,7 +538,7 @@ execute at rwloadsim
     order by enum;
     bind 1 runno;
     define 1 csvline, 2 event;
-    array 6;
+    array 10;
   end;
 
   plotfile := resultsdir subdir runno "/ash.csv";
@@ -545,13 +548,13 @@ execute at rwloadsim
   # names
   integer d, lc:=1;
   writeline plotfile, "# columns are\n# 1: second\n# 2: CPU";
-  sprintf plotline,  "plot '%s%s%d/ash.csv' using 1:($2+$3+$4+$5+$6+$7+$8+$9) with boxes lc rgb 'gray' title 'Other'\\\n"
+  sprintf plotline,  "plot '%s%s%d/ash.csv' using 1:($2+$3+$4+$5+$6+$7+$8+$9+$10+$11) with boxes lc rgb 'gray' title 'Other'\\\n"
     , resultsdir,subdir,runno ;
   for ashevents loop
     writeline plotfile, csvline; # Write comment to csv file for human understanding
     sprintf || plotline,  ", '%s%s%d/ash.csv' using 1:($2"
     , resultsdir,subdir,runno; 
-    for d:= lc..6 loop
+    for d:= lc..8 loop
       sprintf || plotline , "+$%d",d+2;
     end loop;
     plotline ||= ") with boxes lc rgb '";
@@ -567,11 +570,13 @@ execute at rwloadsim
       if lc=4 then plotline ||= "blue"; end if;
       if lc=5 then plotline ||= "light-blue"; end if;
       if lc=6 then plotline ||= "salmon"; end if;
+      if lc=7 then plotline ||= "gold"; end if;
+      if lc=8 then plotline ||= "cyan"; end if;
     end if;
     plotline ||= "' title '" event "' \\\n";
     lc += 1;
   end loop;
-  writeline plotfile, "# 9: Other";
+  writeline plotfile, "# 11: Other";
   # note that CPU always gets a somewhat darker green
   plotline ||= ", '"  resultsdir subdir runno  "/ash.csv' using 1:2 with boxes lc rgb 'forest-green' title 'CPU'";