1 | <?php |
---|
2 | /* |
---|
3 | V4.94 23 Jan 2007 (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved. |
---|
4 | Released under both BSD license and Lesser GPL library license. |
---|
5 | Whenever there is any discrepancy between the two licenses, |
---|
6 | the BSD license will take precedence. See License.txt. |
---|
7 | Set tabs to 4 for best viewing. |
---|
8 | |
---|
9 | Latest version is available at http://adodb.sourceforge.net |
---|
10 | |
---|
11 | Library for basic performance monitoring and tuning |
---|
12 | |
---|
13 | */ |
---|
14 | |
---|
15 | // security - hide paths |
---|
16 | if (!defined('ADODB_DIR')) die(); |
---|
17 | |
---|
18 | // Simple guide to configuring db2: so-so http://www.devx.com/gethelpon/10MinuteSolution/16575 |
---|
19 | |
---|
20 | // SELECT * FROM TABLE(SNAPSHOT_APPL('SAMPLE', -1)) as t |
---|
21 | class perf_db2 extends adodb_perf{ |
---|
22 | var $createTableSQL = "CREATE TABLE adodb_logsql ( |
---|
23 | created TIMESTAMP NOT NULL, |
---|
24 | sql0 varchar(250) NOT NULL, |
---|
25 | sql1 varchar(4000) NOT NULL, |
---|
26 | params varchar(3000) NOT NULL, |
---|
27 | tracer varchar(500) NOT NULL, |
---|
28 | timer decimal(16,6) NOT NULL |
---|
29 | )"; |
---|
30 | |
---|
31 | var $settings = array( |
---|
32 | 'Ratios', |
---|
33 | 'data cache hit ratio' => array('RATIO', |
---|
34 | "SELECT |
---|
35 | case when sum(POOL_DATA_L_READS+POOL_INDEX_L_READS)=0 then 0 |
---|
36 | else 100*(1-sum(POOL_DATA_P_READS+POOL_INDEX_P_READS)/sum(POOL_DATA_L_READS+POOL_INDEX_L_READS)) end |
---|
37 | FROM TABLE(SNAPSHOT_APPL('',-2)) as t", |
---|
38 | '=WarnCacheRatio'), |
---|
39 | |
---|
40 | 'Data Cache', |
---|
41 | 'data cache buffers' => array('DATAC', |
---|
42 | 'select sum(npages) from SYSCAT.BUFFERPOOLS', |
---|
43 | 'See <a href=http://www7b.boulder.ibm.com/dmdd/library/techarticle/anshum/0107anshum.html#bufferpoolsize>tuning reference</a>.' ), |
---|
44 | 'cache blocksize' => array('DATAC', |
---|
45 | 'select avg(pagesize) from SYSCAT.BUFFERPOOLS', |
---|
46 | '' ), |
---|
47 | 'data cache size' => array('DATAC', |
---|
48 | 'select sum(npages*pagesize) from SYSCAT.BUFFERPOOLS', |
---|
49 | '' ), |
---|
50 | 'Connections', |
---|
51 | 'current connections' => array('SESS', |
---|
52 | "SELECT count(*) FROM TABLE(SNAPSHOT_APPL_INFO('',-2)) as t", |
---|
53 | ''), |
---|
54 | |
---|
55 | false |
---|
56 | ); |
---|
57 | |
---|
58 | |
---|
59 | function perf_db2(&$conn) |
---|
60 | { |
---|
61 | $this->conn =& $conn; |
---|
62 | } |
---|
63 | |
---|
64 | function Explain($sql,$partial=false) |
---|
65 | { |
---|
66 | $save = $this->conn->LogSQL(false); |
---|
67 | if ($partial) { |
---|
68 | $sqlq = $this->conn->qstr($sql.'%'); |
---|
69 | $arr = $this->conn->GetArray("select distinct sql1 from adodb_logsql where sql1 like $sqlq"); |
---|
70 | if ($arr) { |
---|
71 | foreach($arr as $row) { |
---|
72 | $sql = reset($row); |
---|
73 | if (crc32($sql) == $partial) break; |
---|
74 | } |
---|
75 | } |
---|
76 | } |
---|
77 | $qno = rand(); |
---|
78 | $ok = $this->conn->Execute("EXPLAIN PLAN SET QUERYNO=$qno FOR $sql"); |
---|
79 | ob_start(); |
---|
80 | if (!$ok) echo "<p>Have EXPLAIN tables been created?</p>"; |
---|
81 | else { |
---|
82 | $rs = $this->conn->Execute("select * from explain_statement where queryno=$qno"); |
---|
83 | if ($rs) rs2html($rs); |
---|
84 | } |
---|
85 | $s = ob_get_contents(); |
---|
86 | ob_end_clean(); |
---|
87 | $this->conn->LogSQL($save); |
---|
88 | |
---|
89 | $s .= $this->Tracer($sql); |
---|
90 | return $s; |
---|
91 | } |
---|
92 | |
---|
93 | |
---|
94 | function Tables() |
---|
95 | { |
---|
96 | $rs = $this->conn->Execute("select tabschema,tabname,card as rows, |
---|
97 | npages pages_used,fpages pages_allocated, tbspace tablespace |
---|
98 | from syscat.tables where tabschema not in ('SYSCAT','SYSIBM','SYSSTAT') order by 1,2"); |
---|
99 | return rs2html($rs,false,false,false,false); |
---|
100 | } |
---|
101 | } |
---|
102 | ?> |
---|