#!/usr/bin/ksh
# whatsgafree ()
#------------------------------------------------------------------------------#
#    Module Name:  whatsgafree                                                 #
#                                                                              #
#    Purpose:      Report on the Database System Global Area (SGA) Free Area.  #
#                                                                              #
#    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)
                
	clear
	echo
	echo  " #--------------------------------------------------------#"
	echo  " # whatsgafree:      Oracle Apps System Global Area (SGA) #"
	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/whatsgafree_$$.txt

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR
        COLUMN  xclas	FORMAT  A26          Heading 'SGA Component Class'
        COLUMN  xcntr	FORMAT  999999999999 Heading 'Number of|SGA Objects'
        COLUMN  xfree	FORMAT  999999999999 Heading 'SGA Free|Memory'
        COLUMN  xsize	FORMAT  999999999999 Heading 'SGA Used|Memory'

        TTITLE	CENTER  'Oracle SGA Free Memory (X\$KSMSP)' 		    -
		LEFT    DATEVAR                                             -
                RIGHT   'Page:'         FORMAT 999 SQL.pno      skip 1	    -
                CENTER  'whatsgafree -- Sorted by Component'		    -
                LEFT    TIMEVAR					skip 2	

        SELECT	TO_CHAR(sysdate, 'DD-MON-YY')			datevalue,
		TO_CHAR(sysdate, 'HH24:MI:SS')			timevalue,
		DECODE(KSMCHCLS,
			'free',    'Free      SGA Memory',
			'freeabl', 'Freeable  SGA Memory',
			'perm',    'Permanent SGA Memory',
			'recr',    'Recr',
			'R-free',  'Recr-Free SGA Memory',
			'R-freea', 'Recr-Freeable SGA Memory',
			KSMCHCLS) 				xclas,
		COUNT(KSMCHCLS)					xcntr,
		SUM(KSMCHSIZ) 					xfree,
		TO_CHAR(((SUM(KSMCHSIZ)/
		   COUNT(KSMCHCLS)/1024)),'999,999.00')|| 'K'	xsize
	FROM	X\$KSMSP GROUP BY KSMCHCLS
	ORDER	BY xclas;

  prompt
  prompt ======================================================================
  prompt = Free:     "SGA-Free-Memory"  when < 5Mb; then please increase      =
  prompt =            init<SID>.ora parameter: SHARED_POOL_RESERVED_SIZE.     = 
  prompt = Permanent: "SGA-Used-Memory" when always growing, indicates        =
  prompt =            memory leaks.                                           =
  prompt = Freeable: "SGA-Used-Memory" when large; Cursors are not releasing. = 
  prompt = Recr:     "SGA-Used-Memory" when large; Cursors are not releasing. =
  prompt ======================================================================

	EXIT 
END_FILE

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