#!/usr/bin/ksh
# whatwaiter ()
#------------------------------------------------------------------------------#
#    Module Name:  whatwaiter                                                  #
#                                                                              #
#    Purpose:      Report on the DBA_WAITERS.                                  #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    10-Oct-2009   T.Robinette   Module design/creation                        #
#                  F.Bender      Module design/creation                        #
#                  A.Estrada     Module design/creation                        #
#                  M.Barone      Module design/creation                        #
#------------------------------------------------------------------------------#
{
        DIRNAM=$(dirname $0)
        ORASID=$(echo $CONTEXT_NAME | cut -f1 -d'_')
        HNAME=$(uname -n)
                
        clear
        #----------------------------------------------------------------------#
        #  TEST:  Number ($#) of arguments passed to this function?            #
        #----------------------------------------------------------------------#
        if      [ $# = 0 ]
        then
            clear
            echo
            echo  " #--------------------------------------------------------#"
            echo  " # whatwaiter:                Oracle Session Information  #"
            echo  " #--------------------------------------------------------#"
            echo

            echo  " Connecting as SYSDBA"
            sleep 2

            clear
        else
            SEARCH=$1
            clear
        fi

        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/whatwaiter_$$.txt

        COLUMN datevalue NOPRINT NEW_VALUE DATEVAR
        COLUMN timevalue NOPRINT NEW_VALUE TIMEVAR
        COLUMN waiter   FORMAT 999999   Heading 'Session|Waiting'
        COLUMN blcker   FORMAT 999999   Heading 'Session|Blocker'
        COLUMN loctyp   FORMAT A11      Heading 'Lock|Type'
        COLUMN modhld   FORMAT A10      Heading 'Lock|Mode|Held'
        COLUMN modreq   FORMAT A10      Heading 'Lock|Mode|Requested'
        COLUMN usernm   FORMAT A08      Heading 'User|Name'     WORD_WRAPPED
        COLUMN osuser   FORMAT A08      Heading 'Unix|Name'     WORD_WRAPPED
        COLUMN machine  FORMAT A08      Heading 'Machine'       WORD_WRAPPED
        COLUMN program  FORMAT A07      Heading 'Program'       WORD_WRAPPED
        COLUMN module   FORMAT A08      Heading 'Module'        WORD_WRAPPED
        COLUMN status   FORMAT A08      Heading 'Status'        WORD_WRAPPED

        TTITLE LEFT DATEVAR -
        RIGHT 'Page:' FORMAT 999 SQL.pno -
        CENTER '$(uname -n)  ${ORACLE_SID} DBA Report'                  skip 1 -
        LEFT TIMEVAR -
        CENTER  'Oracle (${ORACLE_SID}) Current Waiters/Blockers'       skip 1 -
        CENTER  'whatblocker'                                           skip 2 -
        CENTER  'Lock Modes: C=Share/Row-Exclusive L=RowShare '                -
                'N=No-Lock R=RowExclusive S=Share X=Exclusive '         skip 2

        SELECT  TO_CHAR(sysdate, 'DD-MON-YY') datevalue,
                TO_CHAR(sysdate, 'HH24:MI-SS') timevalue,
                dw.waiting_session      waiter,
                dw.holding_session      blcker,
                dw.lock_type            loctyp,
                vs.username             usernm,
                vs.osuser               osuser,
                vs.machine,
                vs.program,
                vs.module,
                vs.status
        FROM    sys.dba_waiters dw,
                v\$session vs
        WHERE   dw.holding_session = vs.sid;

EXIT;

END_FILE

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