#!/usr/bin/ksh
# whatsqlplan ()
#-----------------------------------------------------------------------#
#    Module Name:  whatsqlplan  (c)  Copyright                          #
#                                                                       #
#    Purpose:      Report on the v$SQL Sessions from SQL-History        #
#                                                                       #
#    Maintenance                                                        #
#    Date          Author        Description                            #
#    -----------   ------------  -------------------------------------  #
#    12-May-2012   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  " # whatsqlplan:    Oracle Apps SQLText Plan SQL-ID  #"
            echo  " #--------------------------------------------------#"
            echo

            print " Please execute whatsqlid to Collect SQL-ID and SQL-No"
            print
            read SQLID?" Please Enter Search-SQL-ID: "
            read SQLNO?"        Enter Search-SQL-No: "

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

        COLUMN  datevalue   NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue   NOPRINT NEW_VALUE       TIMEVAR

        TTITLE CENTER '${ORANAM} (${HNAME}) SQLText SQLID' skip 2 

	SELECT	*
        FROM	table(DBMS_XPLAN.DISPLAY_CURSOR('${SQLID}',${SQLNO}));

EXIT;

END_FILE
print
print "Please see /tmp/whatsqlplan$$.txt"
print
}
