#!/usr/bin/ksh
# whatrollback ()
#------------------------------------------------------------------------------#
#    Module Name:  whatrollback                                                #
#                                                                              #
#    Purpose:      Report on the Database Rollback Segment User/Usage.         #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    01-Feb-2007   D.Channell    Module design/creation                        #
#                  J.Sizemore    Module design/creation                        #
#                  M.Barone      Module design/creation                        #
#------------------------------------------------------------------------------#
{
        DIRNAM=$(dirname $0)
        ORASID=$(echo $CONTEXT_NAME | cut -f1 -d'_')
        HNAME=$(uname -n)
                
        clear
        echo
        echo  " #--------------------------------------------------------#"
        echo  " # whatrollback:           Oracle Database Rollback Usage #"
        echo  " #--------------------------------------------------------#"
        echo
        echo  " Connecting as SYSDBA"
        sleep 2

        clear
        ORANAM=${ORASID}
        
#------------------------------------------------------------------------------#
#  SQL*Plus ("Here-Document")                                                  #
#------------------------------------------------------------------------------#
sqlplus  -s  /nolog  <<-END_FILE

        CONNECT /  AS SYSDBA

        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

        SPOOL /tmp/whatrollback_$$.txt

        CLEAR SCREEN

sqlplus  -s  /nolog  @<<-END_FILE

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

        $CON_FLE

        set     feedback        off
        set     flush           on
        set     heading         on
        set     pause           off
        set     space           1
        set     termout         on
        set     verify          off
        set     linesize        75
        
        $P_SZ

        $LOG_FLE

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR

        COLUMN  sname   FORMAT A10      Heading 'Segment|Name'  WORD_WRAPPED
        COLUMN  owner   FORMAT A6       Heading 'Owner'
        COLUMN  tblsp   FORMAT A12      Heading 'Tablespace|Name'
        COLUMN  initx   FORMAT 99999999 Heading 'Initial|Extent'
        COLUMN  nextx   FORMAT 99999999 Heading 'Next|Extent'
        COLUMN  minex   FORMAT 99999    Heading 'Min|Extent'
        COLUMN  maxex   FORMAT 999999   Heading 'Maximum|Extent'
        COLUMN  stats   FORMAT A8       Heading 'Status'

        TTITLE  LEFT    DATEVAR                                         -
        RIGHT   'Page:'         FORMAT 999 SQL.pno                      -
        CENTER  '${C_NM} (${U_NM}) DBA Report'                  skip 1  -
        LEFT    TIMEVAR                                                 -
        CENTER  'Oracle (${O_NM}) Rollback Segment Information' skip 1  -
        CENTER  'dba_rollback_info.sh'                          skip 2

        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')           datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')          timevalue,
                RBS.segment_name                        sname,
                RBS.owner                               owner,
                RBS.tablespace_name                     tblsp,
                RBS.initial_extent                      initx,
                RBS.next_extent                         nextx,
                RBS.min_extents                         minex,
                RBS.max_extents                         maxex,
                RBS.status                              stats
        FROM    DBA_ROLLBACK_SEGS       RBS
        ORDER   BY  RBS.segment_name, segment_id;

        EXIT;
END_FILE

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