Add oltprunnumber

Author: bengsig

bin/oltprunnumber

@@ -0,0 +1,56 @@
+#!/bin/bash
+# Copyright (c) 2021 Oracle Corporation
+# Licensed under the Universal Permissive License v 1.0
+# as shown at https://oss.oracle.com/licenses/upl/
+
+. oltp-setup-env
+
+# This shell script will return an awr or results directory
+# and is useful to do e.g.
+# cd `oltpdirectory`
+# to change directory to the results directory where
+# you will find the rNNN and hence rNNN/NNNNNN subdirectories
+# which should show that the key isn't found.
+
+# history
+#
+# 20-nov-2023 bengsig  - Creation
+
+help=no
+mykey="$RWLOLTP_NAME"
+
+usage="Usage: $commandname [-h|-H|--help] [-k|--key key] [-a|--all] [--hostname hostname]"
+options='ahHk: -l key:,all,help,hostname:'
+
+# Get directory names from parameters.rwl
+
+eval `rwloadsim -q parameters2shell.rwl`
+
+getopt -Q -o $options -- "$@" || exit 1
+set -- `getopt -u -n $commandname -o $options -- "$@"`
+
+arguments=''
+
+while test $1 != '--'
+do
+  case $1 in
+    --hostname) arguments="$arguments --myhostname=$2"; shift; shift;
+    ;;
+    -k|--key) mykey=$2; shift; shift;
+    ;;
+    -a|--all) arguments="$arguments --showall"; shift;
+    ;;
+    --help|-h|-H) help=yes; shift;
+    ;;
+  esac
+done
+
+shift # removes --
+
+if test $# -ge 1 -o x$help = xyes
+then
+  echo $usage 1>&2
+  exit 1
+fi
+
+rwloadsim --mykey=$mykey $arguments latest.rwl

man/man2rwl/oltp.2rwl

@@ -159,4 +159,4 @@ Copyright \(co 2023 Oracle Corporation
 Licensed under the Universal Permissive License v 1.0
 as shown at https://oss.oracle.com/licenses/upl
 .SH "SEE ALSO"
-oltpcheckkey(2rwl), oltpcore(2rwl), oltpcreate(2rwl), oltpday(2rwl), oltpdrop(2rwl), oltpfilloe(2rwl), oltpforever(2rwl), oltpforever2(2rwl), oltpparams(2rwl), oltpplot(2rwl), oltprun(2rwl), oltpscale(2rwl), oltpscalereport(2rwl), oltpsetup(2rwl), oltpverify(2rwl), oltpplus(2rwl), rwloadsim(1rwl)
+oltpcheckkey(2rwl), oltpcore(2rwl), oltpcreate(2rwl), oltpday(2rwl), oltpdrop(2rwl), oltpfilloe(2rwl), oltpforever(2rwl), oltpforever2(2rwl), oltpparams(2rwl), oltpplot(2rwl), oltprun(2rwl), oltpscale(2rwl), oltpscalereport(2rwl), oltpsetup(2rwl), oltpverify(2rwl), oltpplus(2rwl), rwloadsim(1rwl), oltpdirectory(2rwl), oltprunnumber(2rwl)

man/man2rwl/oltprunnumber.2rwl

@@ -0,0 +1,57 @@
+.TH oltpdirecotry "2rwl" "November 2023" "RWP*Load Simulator" "Workload Syntax"
+.SH NAME
+oltprunnumber \- Print a runnumber of list of runnumbers
+.SH SYNOPSIS
+\fBoltprunnumber  [-h|-H|--help] [-k|--key key] [-a|--all] [--hostname hostname]\fR
+.P
+.SH OPTIONS
+.B -k|--key
+.RS 4
+By default, the latest runnumber with the key mentioned in the RWLOLTP_NAME environment
+is printed to stdout.
+A different key can be provided using this option.
+.RE
+.P
+.B -a|--all
+.RS 4 
+Rather than printing the latest, print all runnumbers sorted by increasing run dates, each on a separate line.
+.RE
+.P
+.B --hostname hostname
+.RS 4 
+Rather than the current hostname, provide a different one.
+Either the actul or the one provided will be looked up as the HOSTNAME column
+of the RWLRUN table.
+.RE
+.P
+.B -h|-H|--help
+.RS 4 
+Only output a short help.
+.RE
+.P
+.SH USAGE
+The 
+.B oltprunnumber
+command is primarily used if you want to do some extra processing of data from some runnumber.
+In such a case, you can use the $(oltprunnumber) syntax in your shell to get the latest runnumber.
+If used after running oltpscale, you may want to do some extra processing of data from all
+runs in that oltpscalerun. 
+In such a case, you can use something like 
+.P
+.nf
+for rno in $(oltprunnumber -a -k yourscalekey)
+do
+  # do something
+done
+.fi
+.P
+When the \fb-a\fR option is not used, and if no rownumber matching the key and hostname is found, a single 0 will still be output,
+which may be useful to allow your shell script to continue.
+Additionally, an error is printed to stderr.
+.SH COPYRIGHT
+Copyright \(co 2023 Oracle Corporation
+.br
+Licensed under the Universal Permissive License v 1.0
+as shown at https://oss.oracle.com/licenses/upl
+.SH "SEE ALSO"
+oltpparams(2rwl), oltpdirectory(2rwl)

oltp/latest.rwl

@@ -2,7 +2,7 @@
 # Licensed under the Universal Permissive License v 1.0
 # as shown at https://oss.oracle.com/licenses/upl/
 
-# Return the latest runnumber for some host/key
+# Return the latest or all runnumber for some host/key
 #
 
 $include:"parameters.rwl"
@@ -12,26 +12,46 @@ $longoption:quiet
 string(100) mykey := $RWLOLTP_NAME;
 $useroption:mykey
 
+string(1000) myhostname := hostname;
+$useroption:myhostname
+
+integer showall:=0;
+$userswitch:showall
+
+string orderby:="desc";
+string onlyone:="where rownum=1";
+
+if showall then
+  orderby:="asc";
+  onlyone:=" ";
+end if;
+
+
 integer rno;
 
+$ampersand:on
 execute at rwloadsim
   for
     select runnumber rno from
     (
     select runnumber
     from rwlrun
     where key=:mykey
-    and hostname=:hostname
-    order by rdate desc
+    and hostname=:myhostname
+    order by rdate &orderby.
     )
-    where rownum=1
+    &onlyone.
   /
   loop
     printline rno;
   end loop;
   if rno is null then
-    printline 0;
-    fprintf stderr,"No run found for key=%s, hostname=%s\n", mykey, hostname;
+    if showall then
+      fprintf stderr,"No runs found for key=%s, hostname=%s\n", mykey, myhostname;
+    else
+      printline 0;
+      fprintf stderr,"No run found for key=%s, hostname=%s\n", mykey, myhostname;
+    end if;
     exit 1;
   end if;
 end;