-- 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.

COL column_id       HEAD "Col#"         FOR A4
COL column_name     HEAD "Column Name"  FOR A30
COL nullable        HEAD "Null?"        FOR A10
COL data_type       HEAD "Type"         FOR A25 WORD_WRAP
COL num_distinct    HEAD "# distinct"   FOR 9999999999999
COL density         HEAD "Density"      FOR 9.99999999999
COL num_nulls       HEAD "# nulls"      FOR 9999999999999
COL histogram       HEAD "Histogram"    FOR A10 TRUNCATE
COL num_buckets     HEAD "# buckets"    FOR 999999
COL low_value       HEAD "Low Value"    FOR A32
COL high_value      HEAD "High Value"   FOR A32

WITH
    FUNCTION display_raw(rawval RAW, type VARCHAR2)
    RETURN VARCHAR2
    IS 
        cn  NUMBER;
        cv  VARCHAR2(128);
        cd  DATE;
        cnv NVARCHAR2(128);
        cr  ROWID;
        cc  CHAR(128);
    BEGIN
        IF (type = 'NUMBER') THEN
            dbms_stats.convert_raw_value(rawval, cn);
            RETURN to_char(cn);
        ELSIF (type = 'VARCHAR2' OR type = 'CHAR') THEN
            dbms_stats.convert_raw_value(rawval, cv);
            RETURN to_char(cv);
        ELSIF (type = 'DATE') THEN
            dbms_stats.convert_raw_value(rawval, cd);
            RETURN to_char(cd);
        ELSIF (type = 'NVARCHAR2') THEN
            dbms_stats.convert_raw_value(rawval, cnv);
            RETURN to_char(cnv);
        ELSIF (type = 'ROWID') THEN
            dbms_stats.convert_raw_value(rawval, cr);
            RETURN to_char(cr);
        ELSIF (type = 'VARCHAR2') THEN
            dbms_stats.convert_raw_value(rawval, cc);
            RETURN to_char(cc);
        ELSE
            RETURN 'UNKNOWN DATATYPE';
        END IF;
    END;
SELECT 
    CASE WHEN hidden_column = 'YES' THEN 'H' ELSE ' ' END || LPAD(column_id, 3) AS column_id
    , column_name
    , CASE WHEN nullable = 'N' THEN 'NOT NULL' ELSE NULL END AS nullable
    , data_type || CASE 
                    WHEN data_type = 'NUMBER' THEN '(' || data_precision || ',' || data_scale || ')'
                    ELSE '(' || data_length || ')'
                    END AS data_type
    , num_distinct
    , density
    , num_nulls
    , CASE WHEN histogram = 'NONE' THEN null ELSE histogram END AS histogram
    , num_buckets
    , display_raw(low_value, data_type) AS low_value 
    , display_raw(high_value, data_type) AS high_value
FROM dba_tab_cols
WHERE
    upper(table_name) LIKE
                        upper(CASE
                                WHEN INSTR('&1','.') > 0 THEN
                                    SUBSTR('&1',INSTR('&1','.')+1)
                                ELSE
                                    '&1'
                                END
                             )
    AND owner LIKE
                CASE WHEN INSTR('&1','.') > 0 THEN
                    UPPER(SUBSTR('&1',1,INSTR('&1','.')-1))
                ELSE
                    user
                END
ORDER BY
    owner, table_name, column_id ASC
/