dgsoft/Oracle_scripte
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Init des repository

Browse Source
This commit is contained in:
Franz Rustler 2014-09-17 13:22:27 +02:00
commit a328edb315
16 changed files with 573 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Mortan/st-all.sql Normal file
View File

@ -0,0 +1,12 @@
rem
rem Displays all statistics information for owner/table
rem
@st-main
@st-tab-body
@st-part-body
@st-col-body
--@st-col-virtual-body
@st-hist-body
@st-idx-body
@st-idx-part-body

133
Mortan/st-col-body.sql Normal file
View File

@ -0,0 +1,133 @@
rem
rem Displays column information
rem
declare
v_owner varchar2(30) := upper('&p_owner');
v_table varchar2(30) := upper('&p_table');
v_ct number ;
v_max_colname number ;
v_max_ndv number ;
v_max_nulls number ;
v_max_bkts number ;
v_max_smpl number ;
v_max_endnum number ;
v_max_endval number ;
prev_col varchar2(30) ;
cn number;
cv varchar2(70);
cd date;
cnv nvarchar2(70);
cr rowid;
cc char(70);
cn1 number;
cv1 varchar2(32);
cd1 date;
cnv1 nvarchar2(32);
cr1 rowid;
cc1 char(32);
cn2 number;
cv2 varchar2(32);
cd2 date;
cnv2 nvarchar2(32);
cr2 rowid;
cc2 char(32);
cursor col_stats is
select a.column_name,
a.last_analyzed,
a.nullable,
a.num_distinct, a.density, a.num_nulls,
--a.histogram,
a.num_buckets, a.avg_col_len, a.sample_size,
a.low_value, a.high_value, a.data_type
from all_tab_cols a
where a.owner = v_owner
and a.table_name = v_table
order by a.column_name;
begin
select max(length(column_name)) + 1, max(length(num_distinct)) + 3,
max(length(num_nulls)) + 1, max(length(num_buckets)) + 1,
max(length(sample_size)) + 1
into v_max_colname, v_max_ndv, v_max_nulls, v_max_bkts, v_max_smpl
from all_tab_cols
where owner = v_owner
and table_name = v_table ;
if v_max_nulls < 8 then
v_max_nulls := 8 ;
end if ;
if v_max_bkts < 10 then
v_max_bkts := 10 ;
end if ;
if v_max_smpl < 7 then
v_max_smpl := 7;
end if;
dbms_output.put_line('');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' COLUMN STATISTICS');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' ' || rpad('Name',v_max_colname) || ' Analyzed Null? ' ||
rpad(' NDV',v_max_ndv) || ' ' || rpad(' Density',10) ||
rpad('# Nulls',v_max_nulls) || ' ' || rpad('# Buckets',v_max_bkts) || ' ' ||
rpad('Sample',v_max_smpl) || ' AvgLen Lo-Hi Values');
dbms_output.put_line('===================================================================================================================================');
for v_rec in col_stats loop
if v_rec.last_analyzed is not null then
if v_rec.data_type = 'NUMBER' then
dbms_stats.convert_raw_value(v_rec.low_value, cn1);
dbms_stats.convert_raw_value(v_rec.high_value, cn2);
cv := cn1 || ' | ' || cn2;
elsif (v_rec.data_type = 'VARCHAR2') then
dbms_stats.convert_raw_value(v_rec.low_value, cv1);
dbms_stats.convert_raw_value(v_rec.high_value, cv2);
cv := substr(trim(cv1),1,30) || ' | ' || substr(trim(cv2),1,30);
elsif (v_rec.data_type = 'DATE') then
dbms_stats.convert_raw_value(v_rec.low_value, cd1);
dbms_stats.convert_raw_value(v_rec.high_value, cd2);
cv := to_char(cd1,'mm/dd/yyyy hh24:mi:ss') || ' | ' || to_char(cd2,'mm/dd/yyyy hh24:mi:ss');
elsif (v_rec.data_type = 'NVARCHAR2') then
dbms_stats.convert_raw_value(v_rec.low_value, cnv1);
dbms_stats.convert_raw_value(v_rec.high_value, cnv2);
cv := substr(trim(to_char(cnv1)),1,30) || ' | ' || substr(trim(to_char(cnv2)),1,30);
elsif (v_rec.data_type = 'ROWID') then
dbms_stats.convert_raw_value(v_rec.low_value, cr1);
dbms_stats.convert_raw_value(v_rec.high_value, cr2);
cv := substr(trim(to_char(cr1)),1,30) || ' | ' || substr(trim(to_char(cr2)),1,30);
elsif (v_rec.data_type = 'CHAR') then
dbms_stats.convert_raw_value(v_rec.low_value, cc1);
dbms_stats.convert_raw_value(v_rec.high_value, cc2);
cv := substr(trim(cc1),1,30) || ' | ' || substr(trim(cc2),1,30);
else
cv:= 'UNKNOWN DATATYPE';
end if;
dbms_output.put_line(rpad(lower(v_rec.column_name),v_max_colname) || ' ' ||
v_rec.last_analyzed || ' ' ||
rpad(v_rec.nullable,5) || ' ' ||
rpad(v_rec.num_distinct,v_max_ndv) ||
to_char(v_rec.density,'9.999999') || ' ' ||
rpad(v_rec.num_nulls,v_max_nulls) || ' ' ||
rpad(v_rec.num_buckets,v_max_bkts) || ' ' ||
rpad(v_rec.sample_size,v_max_smpl) || ' ' ||
rpad(v_rec.avg_col_len,9) || ' ' || rpad(cv,70));
else
dbms_output.put_line(rpad(lower(v_rec.column_name),v_max_colname));
end if;
end loop ;
end;
/

61
Mortan/st-col-virtual-body.sql Normal file
View File

@ -0,0 +1,61 @@
rem
rem Displays virtual column expressions
rem
declare
v_owner varchar2(30) := upper('&p_owner');
v_table varchar2(30) := upper('&p_table');
v_ct number ;
begin
v_ct := 0;
select count(1)
into v_ct
from all_tab_cols c
where c.owner = v_owner
and c.table_name = v_table
and c.virtual_column = 'YES';
if v_ct > 0 then
dbms_output.put_line('');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' VIRTUAL AND HIDDEN COLUMN INFORMATION');
dbms_output.put_line('===================================================================================================================================');
end if;
end;
/
set verify off feed off numwidth 15 lines 500 heading on
column column_name heading 'Column Name'
column vc_expression format a50 heading 'Expression'
column qualified_col_name format a50 heading 'Expression'
select c.column_name,
(select extension from all_stat_extensions
where extension_name = c.column_name
and owner = c.owner
and table_name = c.table_name
and rownum = 1) vc_expression
from all_tab_cols c
where c.owner = UPPER('&p_owner')
and c.table_name = UPPER('&p_table')
and c.virtual_column = 'YES'
order by c.column_name
/
set head off
select column_name, qualified_col_name
from all_tab_cols
where owner = UPPER('&p_owner')
and table_name = UPPER('&p_table')
and hidden_column = 'YES'
and column_name <> qualified_col_name
order by column_name
/
set head on

2
Mortan/st-col-virtual.sql Normal file
View File

@ -0,0 +1,2 @@
@st-main
@st-col-virtual-body

2
Mortan/st-col.sql Normal file
View File

@ -0,0 +1,2 @@
@st-main
@st-col-body

87
Mortan/st-hist-body.sql Normal file
View File

@ -0,0 +1,87 @@
rem
rem Displays histogram information
rem
declare
v_owner varchar2(30) := upper('&p_owner');
v_table varchar2(30) := upper('&p_table');
v_ct number ;
prev_col varchar2(30) ;
cursor hist_stats (col_nm all_tab_histograms.column_name%TYPE) is
select rownum bucket, pct_total||'%' hist_line
-- lpad('+', pct_total, '+')||'('||pct_total||'%)' hist_line
from
(
select endpoint_number curr_ep,
lag(endpoint_number,1,0) over(order by endpoint_number) prev_ep,
(endpoint_number - lag(endpoint_number,1,0) over (order by endpoint_number)) num_in_bkt,
max(endpoint_number) over () last_ep,
round((endpoint_number - lag(endpoint_number,1,0) over (order by endpoint_number)) / max(endpoint_number) over (), 2) * 100 pct_total,
row_number() over (order by endpoint_number) rn
from all_tab_histograms
where owner = v_owner
and table_name = v_table
and column_name = col_nm
and EXISTS (select null from all_tab_cols
where column_name = col_nm and table_name = v_table and owner = v_owner and num_buckets > 1)
)
where pct_total > 5;
cursor cols is
select *
from all_tab_cols
where table_name = UPPER(v_table)
and owner = UPPER(v_owner) ;
begin
select count(1)
into v_ct
from all_tab_histograms b
where b.owner = v_owner
and b.table_name = v_table
and (exists (select 1 from all_tab_columns
where num_buckets > 1
and owner = b.owner
and table_name = b.table_name
and column_name = b.column_name)
or
exists (select 1 from all_tab_histograms
where endpoint_number > 1
and owner = b.owner
and table_name = b.table_name
and column_name = b.column_name)
);
if v_ct > 0 then
v_ct := 0 ;
for v_rec in cols loop
if v_rec.num_buckets > 1 then
for v_hist_rec in hist_stats (v_rec.column_name) loop
if v_ct = 0 then
v_ct := 1 ;
prev_col := v_rec.column_name ;
dbms_output.put_line('');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' HISTOGRAM STATISTICS Note: Only columns with buckets containing > 5% of total values are shown.');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line('');
dbms_output.put_line(v_rec.column_name||' (' || v_rec.num_buckets || ' buckets)');
elsif prev_col <> v_rec.column_name then
dbms_output.put_line('');
dbms_output.put_line(v_rec.column_name||' (' || v_rec.num_buckets || ' buckets)');
prev_col := v_rec.column_name ;
end if ;
dbms_output.put_line(v_hist_rec.bucket||' '||v_hist_rec.hist_line);
end loop;
end if;
end loop ;
dbms_output.put_line('');
end if ;
end;
/

2
Mortan/st-hist.sql Normal file
View File

@ -0,0 +1,2 @@
@st-main
@st-hist-body

84
Mortan/st-idx-body.sql Normal file
View File

@ -0,0 +1,84 @@
rem
rem Displays index information
rem
declare
v_owner varchar2(30) := upper('&p_owner');
v_table varchar2(30) := upper('&p_table');
v_ct number ;
begin
v_ct := 0;
select count(1)
into v_ct
from all_indexes a
where a.table_owner = v_owner
and a.table_name = v_table;
if v_ct > 0 then
dbms_output.put_line('');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' INDEX INFORMATION');
dbms_output.put_line('===================================================================================================================================');
end if;
end;
/
set verify off feed off numwidth 15 lines 500 heading on
set null .
column INDEX_NAME heading 'Index Name'
column INDEX_TYPE format a8 heading 'Type'
column STATUS format a8 heading 'Status'
column VISIBILITY format a4 heading 'Vis?'
column LAST_ANALYZED heading 'Last Analyzed'
column SAMPLE_SIZE heading 'Sample Size'
column DEGREE format a3 heading 'Deg'
column PARTITIONED format a5 heading 'Part?'
column UNIQUENESS format a5 heading 'Uniq?'
column BLEVEL format 999999 heading 'BLevel'
column LEAF_BLOCKS heading 'Leaf Blks'
column NUM_ROWS heading '# Rows'
column DISTINCT_KEYS heading 'Distinct Keys'
column AVG_LEAF_BLOCKS_PER_KEY heading 'Avg Lf/Blks/Key'
column AVG_DATA_BLOCKS_PER_KEY heading 'Avg Dt/Blks/Key'
column CLUSTERING_FACTOR heading 'Clustering Factor'
select INDEX_NAME,
BLEVEL, LEAF_BLOCKS, NUM_ROWS, DISTINCT_KEYS,
AVG_LEAF_BLOCKS_PER_KEY, AVG_DATA_BLOCKS_PER_KEY, CLUSTERING_FACTOR,
SAMPLE_SIZE, case when uniqueness = 'UNIQUE' then 'YES' else 'NO ' end UNIQUENESS,
substr(INDEX_TYPE,1,4) index_type, STATUS, DEGREE,
PARTITIONED,
null VISIBILITY,
-- case when visibility = 'VISIBLE' then 'YES' else 'NO ' end VISIBILITY,
LAST_ANALYZED
from all_indexes
where table_owner = UPPER('&p_owner')
and table_name = UPPER('&p_table')
order by index_name ;
column column_name format a30 heading 'Column Name'
column index_name heading 'Index Name'
column column_position format 999999999 heading 'Pos#'
column descend format a5 heading 'Order'
column column_expression format a40 heading 'Expression'
break on index_name skip 1
select lower(b.index_name) index_name, b.column_position, b.descend, lower(b.column_name) column_name
from all_ind_columns b
where b.table_owner = UPPER('&p_owner')
and b.table_name = UPPER('&p_table')
order by b.index_name, b.column_position, b.column_name
/
set head on
clear breaks

71
Mortan/st-idx-part-body.sql Normal file
View File

@ -0,0 +1,71 @@
rem
rem Displays partitioned index information
rem
declare
v_owner varchar2(30) := upper('&p_owner');
v_table varchar2(30) := upper('&p_table');
v_ct number ;
begin
v_ct := 0;
select count(1)
into v_ct
from all_indexes a
where a.table_owner = v_owner
and a.table_name = v_table
and a.partitioned = 'YES';
if v_ct > 0 then
dbms_output.put_line('');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' PARTITIONED INDEX INFORMATION');
dbms_output.put_line('===================================================================================================================================');
end if;
end;
/
set verify off feed off numwidth 15 lines 500 heading on long 200
column INDEX_NAME heading 'Index Name'
column INDEX_TYPE format a8 heading 'Type'
column STATUS format a8 heading 'Status'
column VISIBILITY format a4 heading 'Vis?'
column LAST_ANALYZED heading 'Last Analyzed'
column DEGREE format a3 heading 'Deg'
column PARTITIONED format a5 heading 'Part?'
column BLEVEL heading 'BLevel'
column LEAF_BLOCKS heading 'Leaf Blks'
column NUM_ROWS heading '# Rows'
column DISTINCT_KEYS heading 'Distinct Keys'
column AVG_LEAF_BLOCKS_PER_KEY heading 'Avg Lf/Blks/Key'
column AVG_DATA_BLOCKS_PER_KEY heading 'Avg Dt/Blks/Key'
column CLUSTERING_FACTOR heading 'Clustering Factor'
column PARTITION_POSITION format 99999 heading 'Part#'
column PARTITION_NAME heading 'Partition Name'
column HIGH_VALUE format a120 tru heading 'Partition Bound'
break on index_name skip 1
select index_name, partition_position, partition_name, BLEVEL, LEAF_BLOCKS, NUM_ROWS, DISTINCT_KEYS,
AVG_LEAF_BLOCKS_PER_KEY, AVG_DATA_BLOCKS_PER_KEY, CLUSTERING_FACTOR,
STATUS, LAST_ANALYZED, high_value
from all_ind_partitions
where index_owner = UPPER('&p_owner')
and index_name in
(
select index_name
from all_indexes
where table_owner = UPPER('&p_owner')
and table_name = UPPER('&p_table')
and partitioned = 'YES'
)
order by index_name, partition_position
/
clear breaks

2
Mortan/st-idx-part.sql Normal file
View File

@ -0,0 +1,2 @@
@st-main
@st-idx-part-body

2
Mortan/st-idx.sql Normal file
View File

@ -0,0 +1,2 @@
@st-main
@st-idx-body

20
Mortan/st-main.sql Normal file
View File

@ -0,0 +1,20 @@
rem
rem Main caller for retrieving statistics information by owner/table
rem
set echo off feed off
set serveroutput on for wra
exec dbms_output.enable(1000000);
alter session set nls_date_format = 'mm/dd/yyyy hh24:mi:ss';
set termout on
accept p_own prompt 'Enter the owner name: '
accept p_tab prompt 'Enter the table name: '
define p_owner = '&p_own'
define p_table = '&p_tab'
set termout on lines 500

46
Mortan/st-part-body.sql Normal file
View File

@ -0,0 +1,46 @@
rem
rem Displays table partition information
rem
declare
v_owner varchar2(30) := upper('&p_owner');
v_table varchar2(30) := upper('&p_table');
v_ct number ;
begin
v_ct := 0 ;
select count(1)
into v_ct
from all_tab_partitions
where table_owner = UPPER(v_owner)
and table_name = UPPER(v_table);
if v_ct > 0 then
dbms_output.put_line('');
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' PARTITION INFORMATION');
dbms_output.put_line('===================================================================================================================================');
end if ;
end;
/
set verify off feed off numwidth 15 lines 500 heading on long 300
column PARTITION_POSITION format 99999 heading 'Part#'
column PARTITION_NAME heading 'Partition Name'
column LAST_ANALYZED heading 'Last Analyzed'
column SAMPLE_SIZE heading 'Sample Size'
column NUM_ROWS heading '# Rows'
column BLOCKS heading '# Blocks'
column HIGH_VALUE heading 'Partition Bound'
select PARTITION_POSITION, PARTITION_NAME, SAMPLE_SIZE,
NUM_ROWS, BLOCKS, HIGH_VALUE, LAST_ANALYZED
from all_tab_partitions
where table_owner = UPPER('&p_owner')
and table_name = UPPER('&p_table')
order by partition_position;

2
Mortan/st-part.sql Normal file
View File

@ -0,0 +1,2 @@
@st-main
@st-part-body

44
Mortan/st-tab-body.sql Normal file
View File

@ -0,0 +1,44 @@
rem
rem Displays table information
rem
declare
v_owner varchar2(30) := upper('&p_owner');
v_table varchar2(30) := upper('&p_table');
cursor tabs is
select *
from all_tables
where table_name = UPPER(v_table)
and owner = UPPER(v_owner) ;
begin
dbms_output.put_line('===================================================================================================================================');
dbms_output.put_line(' TABLE STATISTICS');
dbms_output.put_line('===================================================================================================================================');
for tabinfo in tabs loop
dbms_output.put_line ('Owner : ' || lower(tabinfo.owner)) ;
dbms_output.put_line ('Table name : ' || lower(tabinfo.table_name)) ;
dbms_output.put_line ('Tablespace : ' || lower(tabinfo.tablespace_name)) ;
dbms_output.put_line ('Cluster name : ' || lower(tabinfo.cluster_name)) ;
dbms_output.put_line ('Partitioned : ' || lower(tabinfo.partitioned)) ;
dbms_output.put_line ('Last analyzed : ' || tabinfo.last_analyzed) ;
dbms_output.put_line ('Sample size : ' || tabinfo.sample_size) ;
dbms_output.put_line ('Degree : ' || to_number(tabinfo.degree)) ;
dbms_output.put_line ('IOT Type : ' || lower(tabinfo.iot_type)) ;
dbms_output.put_line ('IOT name : ' || lower(tabinfo.iot_name)) ;
dbms_output.put_line ('# Rows : ' || tabinfo.num_rows) ;
dbms_output.put_line ('# Blocks : ' || tabinfo.blocks ) ;
dbms_output.put_line ('Empty Blocks : ' || tabinfo.empty_blocks) ;
dbms_output.put_line ('Avg Space : ' || tabinfo.avg_space) ;
dbms_output.put_line ('Avg Row Length: ' || tabinfo.avg_row_len ) ;
dbms_output.put_line ('Monitoring? : ' || lower(tabinfo.monitoring )) ;
-- dbms_output.put_line ('Status : ' || lower(tabinfo.status )) ;
end loop;
end;
/

3
Mortan/st-tab.sql Normal file
View File

@ -0,0 +1,3 @@
@st-main
@st-tab-body