#!/usr/bin/ksh
#whatDBMShistory ()
#------------------------------------------------------------------------------#
#    Module Name:  whatDBMShistory                                             #
#                                                                              #
#    Purpose:      Report on the DBMS Statistics History (SYSAUX Tablespace).  #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    10-Oct-2009   M.Barone      Module design/creation                        #
#------------------------------------------------------------------------------#
{
        DIRNAM=$(dirname $0)
        ORASID=$(echo $CONTEXT_NAME | cut -f1 -d'_')
        HNAME=$(uname -n)

       #----------------------------------------------------------------------#
       #  TEST:  Number ($#) of arguments passed to this function?            #
       #----------------------------------------------------------------------#
        if      [ $# = 0 ]
        then
            clear
            echo
            echo  " #--------------------------------------------------------#"
            echo  " # whatDBMShistory:    Oracle DBMS Stats History (SYSAUX) #"
            echo  " #--------------------------------------------------------#"
            echo
            echo  " Connecting as SYSDBA"
            sleep 2

            clear
        else
            PASSWD=$1
            clear
        fi

#------------------------------------------------------------------------------#
#  Initialize                                                                  #
#------------------------------------------------------------------------------#
        SPOOLNM=/tmp/whatDBMShistory_$$.txt

#------------------------------------------------------------------------------#
#  SQL*Plus ("Here-Document")                                                  #
#------------------------------------------------------------------------------#
sqlplus  -s  /nolog  <<-END_FILE

        CONNECT /  AS SYSDBA

        SPOOL ${SPOOLNM}

        clear   BREAKS
        clear   BUFFER
        clear   COLUMNS
        clear   COMPUTES
        clear   SCREEN
        clear   SQL
        clear   TIMING

        set     feedback        off
        set     flush           on
        set     heading         on
        set     pause           off
        set     space           1
        set     termout         on
        set     verify          on
        set     linesize        80
        set     pagesize        999

       prompt #---------------------------------------------------------------#
       prompt #- What (whatDBMShistory)                                      -#
       prompt #---------------------------------------------------------------#

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR

        TTITLE  LEFT    DATEVAR                                         -
                RIGHT   'Page:'         FORMAT 999 SQL.pno              -
                CENTER  'SYSAUX Tablespace DBMS Stats History Report' skip 1  -
                LEFT    TIMEVAR                                         -
                CENTER  'DBMS OP/Stat Retention (Default 31-Days)'    skip 2

        PROMPT  '========================================'
        PROMPT  'DBMS OP/Stat Retention (Default 31-Days)'
        PROMPT  '========================================'
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                dbms_stats.get_stats_history_retention
        FROM    dual;


        PROMPT
        PROMPT

        TTITLE  LEFT    DATEVAR                                         -
                RIGHT   'Page:'         FORMAT 999 SQL.pno              -
                CENTER  'SYSAUX Tablespace DBMS Stats History Report' skip 1  -
                LEFT    TIMEVAR                                         -
                CENTER  'DBMS OP/Stat Oldest DBMS Statistics'         skip 2
        PROMPT  '========================================'
        PROMPT  'DBMS OP/Stat Oldest Stats-History Data  '
        PROMPT  '========================================'
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                dbms_stats.get_stats_history_availability
          FROM  dual;


        PROMPT
        PROMPT

        TTITLE  LEFT    DATEVAR                                         -
                RIGHT   'Page:'         FORMAT 999 SQL.pno              -
                CENTER  'SYSAUX Tablespace Segment-Space Report' skip 1 -
                LEFT    TIMEVAR                                         -
                CENTER  'SYSAUX Table Tablespace Used'           skip 2
        PROMPT  '========================================'
        PROMPT  'SYSAUX Tablespace Tables: WRI_OPTSTAT   '
        PROMPT  '========================================'
        COLUMN sumbyt           FORM  9,999,999 HEADING  'SumBytes(Mb)'
        COLUMN SEGMENT_NAME     FORM A40        HEADING  'SegmentName'
        COLUMN SEGMENT_TYPE     FORM A6         HEADING  'Segment|Type'
        SELECT  sum(bytes/1024/1024) sumbyt,
                segment_name,
                segment_type
          FROM  dba_segments
        WHERE   tablespace_name = 'SYSAUX'
          AND   segment_name like 'WRI$_OPTSTAT%'
          AND   segment_type='TABLE'
        GROUP BY segment_name,segment_type
        ORDER BY 1 asc;


        PROMPT
        PROMPT

        TTITLE  LEFT    DATEVAR                                         -
                RIGHT   'Page:'         FORMAT 999 SQL.pno              -
                CENTER  'SYSAUX Tablespace Segment-Space Report' skip 1 -
                LEFT    TIMEVAR                                         -
                CENTER  'SYSAUX Index Tablespace Used'           skip 2
        PROMPT  '========================================'
        PROMPT  'SYSAUX Tablespace Indexes: WRI_OPTSTAT  '
        PROMPT  '========================================'
        COLUMN sumbyt           FORM  9,999,999 HEADING  'SumBytes(Mb)'
        COLUMN SEGMENT_NAME     FORM A40        HEADING  'SegmentName'
        COLUMN SEGMENT_TYPE     FORM A6         HEADING  'Segment|Type'
        SELECT  sum(bytes/1024/1024) sumbyt,
                segment_name,
                segment_type
          FROM  dba_segments
        WHERE   tablespace_name = 'SYSAUX'
          AND   segment_name like '%OPT%'
          AND   segment_type='INDEX'
        GROUP BY segment_name,segment_type
        ORDER BY 1 asc;

        PROMPT
        PROMPT

        TTITLE  LEFT    DATEVAR                                         -
                RIGHT   'Page:'         FORMAT 999 SQL.pno              -
                CENTER  'SYSAUX Tablespace DBMS Stats Histmry Report' skip 1  -
                LEFT    TIMEVAR                                         -
                CENTER  'DBMS OP/Stat History Sorted by Date'         skip 2
        PROMPT  '========================================'
        PROMPT  'DBMS OP/Stat Stats-History by Date      '
        PROMPT  '========================================'
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                TO_CHAR(SAVTIME, 'YY-MON-DD'),count(1)
          FROM  WRI\$_OPTSTAT_HISTHEAD_HISTORY
        GROUP BY TO_CHAR(SAVTIME, 'YY-MON-DD')
        ORDER BY TO_CHAR(SAVTIME, 'YY-MON-DD');

END_FILE

print
print  "Please see  /tmp/whatDBMShistory_$$.txt"
print
}
