whocount ()
#------------------------------------------------------------------------------#
#    Module Name:  whocount                                                    #
#                                                                              #
#    Purpose:      Report on the NCA Users/Report Server Oracle Apps 11i:      #
#                     User, Responsibility and FormName.                       #
#                                                                              #
#    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)

        #----------------------------------------------------------------------#
        #  TEST:  Number ($#) of arguments passed to this function?            #
        #----------------------------------------------------------------------#
        if      [ $# = 1 ]
        then
            ORANAM=$1
        else
            ORANAM=${ORACLE_SID}
        fi

        clear

#------------------------------------------------------------------------------#
#  Initialize Database System-ID (SID)                                         #
#------------------------------------------------------------------------------#
	appsel  ${ORANAM}     > /dev/null
	getpass                 ## RapidMagic Function: Get Passwords         ##

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

	CONNECT  APPS/$PWDAPP

	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

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR

	COLUMN usernam	FORMAT A18	HEADING	'UserName'	 WORD_WRAPPED
	COLUMN cntname	FORMAT 99999	HEADING	'User|Count'

        TTITLE  CENTER  '[7m${ORANAM} (${HNAME}) Apps FormServer[0m'    -
        	LEFT    DATEVAR                    		    skip 1  -
                LEFT    TIMEVAR					    skip 1

        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
		username			usernam,
		count (*)			cntname
	FROM	v\$session
	GROUP BY username;
EXIT;

END_FILE
print
}
