#!/usr/bin/ksh
#whatsource ()
#------------------------------------------------------------------------------#
#    Module Name:  whatsource                                                  #
#                                                                              #
#    Purpose:      Report on eBusiness Suite Source (Packages, Package Body.   #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    10-Oct-2009   T.Robinette   Module design/creation                        #
#                  A.Estrada     Module design/creation                        #
#                  F.Bender      Module design/creation                        #
#                  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  " # whatsource:                    Oracle Apps Forms Users #"
	    echo  " #--------------------------------------------------------#"
	    echo                                                               

	    #------------------------------------------------------------------#
	    #  Trap:  Set CNTL-C CNTL-D CNTL-\ Before Password Protection      #
	    #------------------------------------------------------------------#
	    trap        "stty echo; return"     2                              
	    trap        "stty echo; return"     3
	    stty -echo

	    read PASSWD?" Please Enter the Oracle [7mAPPS[0m Passwd:  "

	    stty echo
	    echo 
	    #------------------------------------------------------------------#
	    #  Trap:  Reset CNTL-C CNTL-D CNTL-\ After Password Protection     #
	    #------------------------------------------------------------------#
	    trap        2
	    trap        3

	    read SOURNM?"        Enter the Oracle [7mSource (Package-Name)[0m: "

	    clear
	else
	    PASSWD=$1
	    clear
	fi


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

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

	CONNECT  APPS/$PASSWD

        set     pagesize        9000
	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 ${SPOOLNM}

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

	prompt #---------------------------------------------------------------#
	prompt #- eBusiness Suite 11i (whatsource)                            -#
	prompt #---------------------------------------------------------------#

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR

        COLUMN line    FORMAT 99999    HEADING 'Line'
        COLUMN text    FORMAT A72      HEADING 'Package Source Text' WORD_WRAPPED

        TTITLE  CENTER  '[7m${ORASID} (${HNAME}) Source (Packages [0m'    -
                LEFT    DATEVAR                                     skip 1    -
        	CENTER  'Sorted by LineNumber'                                -	
                LEFT    TIMEVAR                                     skip 2

	PROMPT  ===============================================================
	PROMPT  $SOURNM Package Specification
	PROMPT  ===============================================================
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   	datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  	timevalue,
		line,
		text
	FROM	dba_source
	WHERE	name 		= '${SOURNM}'
	  AND	type		= 'PACKAGE'
	ORDER BY line;

	PROMPT  ===============================================================
	PROMPT  $SOURNM Package Body           
	PROMPT  ===============================================================
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   	datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  	timevalue,
		line,
		text
	FROM	dba_source
	WHERE	name 		= '${SOURNM}'
	  AND	type		= 'PACKAGE BODY'
	ORDER BY line;
EXIT;
END_FILE

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