2026-03-12 20:23:15

tpt/dtrace/qer_trace.sh

@@ -0,0 +1,68 @@
+#!/bin/bash
+
+#
+# Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
+# Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
+# Name:       qer_trace.sh - Query Execution Row-source Trace script
+# Version:    0.2 
+# Author:     Tanel Poder (http://blog.tanelpoder.com)
+#
+# Notes:      Comment out the kcbgtcr:entry and kcbgtcr:return functions if you
+#             want to reduce the amount of output this script generates or see the
+#             output being indented more and more to the right without returning
+#             (dtrace doesn't recognize the return call in some cases)
+
+dtrace -Fp $1 -n '
+
+pid$target:oracle:opifch*:entry 
+{}
+
+pid$target:oracle:opifch*:return
+{ printf("= %x", arg1) }
+
+struct qer_rws {
+    uint16_t rws_id;
+    uint16_t rws_parent;
+};
+
+struct qer_rws op;
+
+pid$target:oracle:qer*Fetch*:entry
+/*, pid$target:oracle:kpofcr:entry
+  , pid$target:oracle:rwsfcd:entry */
+{
+    op.rws_parent = *(uint32_t *)copyin(arg0,2);
+    op.rws_id = *(uint32_t *)copyin(arg0+2,2);
+    printf("op=%d par=%d rows=%d", op.rws_id, op.rws_parent, arg4)
+
+}
+
+pid$target:oracle:qer*Fetch*:return
+/*, pid$target:oracle:kpofcr:return
+  , pid$target:oracle:rwsfcd:return */
+{ printf("= %d", arg1) }
+
+
+struct kcb_dba_t {
+    uint32_t ts;
+    uint16_t rfile;
+    uint32_t block;
+};
+
+struct kcb_dba_t dba;
+
+pid$target:oracle:kcbgtcr:entry
+{ 
+
+    dba.ts     = *(uint32_t *) copyin(arg0,4);
+    dba.rfile  = *(uint32_t *) copyin(arg0+4,4) >> 22 & 0x000003FF ; 
+    dba.block  = *(uint32_t *) copyin(arg0+4,4) & 0x003FFFFF ;
+    
+    printf("ts=%d rfile=%x block=%d %x x$kcbwh.indx=%x", dba.ts, dba.rfile, dba.block, arg1,arg2); 
+
+} 
+
+pid$target:oracle:kcbgtcr:return
+{ printf("= %x %x", arg0, arg1) }
+
+'