#!/usr/bin/ksh
# whosup_sessions_io ()
#------------------------------------------------------------------------------#
#    Module Name:  whosup_sessions_io                                          #
#                                                                              #
#    Purpose:      Report on the v$SESSION used by Oracle Forms (frmweb).      #
#                                                                              #
#    Maintenance                                                               #
#    Date          Author        Description                                   #
#    -----------   ------------  --------------------------------------------  #
#    10-May-2012   M.Mullin      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  " # whosup_sessions_io:        Oracle Session Information  #"
            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 APPS Passwd:  "

            stty echo
            echo 

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

            clear
        else
            PASSWD=$1
            clear
        fi

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

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

        CONNECT  APPS/$PASSWD

        SPOOL ${SPOOLNM}

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

        set     feedback        on
        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 sprog    FORMAT A14       Heading 'Forms|Program|Session'
        COLUMN pprog    FORMAT A11       Heading 'Forms|Program|Process' 
        COLUMN sproc    FORMAT A8        Heading 'AppsTier|Unix|Process|ID'
        COLUMN spid     FORMAT A8        Heading 'DBTier|UNIX|Process|ID'
        COLUMN sidno    FORMAT 999999    Heading 'Oracle|System|SID'
        COLUMN serno    FORMAT 999999    Heading 'Oracle|Serial|Number'
        COLUMN sread    FORMAT 999999999 Heading 'DB-IO|Physical|Reads'
        COLUMN sgets    FORMAT 9999999   Heading 'DB-IO|Block|Gets'
        COLUMN scget    FORMAT 999999999 Heading 'DB-IO|Consist|Gets'
        COLUMN sbchg    FORMAT 9999999   Heading 'DB-IO|Block|Chngs'
        COLUMN scchg    FORMAT 999999    Heading 'DB-IO|Consist|Chngs'

        TTITLE LEFT DATEVAR -
        RIGHT 'Page:' FORMAT 999 SQL.pno -
        CENTER '$(uname -n) ${ORACLE_SID} DBA Report'                skip 1 -
        LEFT TIMEVAR -
        CENTER 'Oracle Session(s) -- Assigned to frmweb-Connections' skip 1 -
        CENTER 'whosup_sessions_io'                                  skip 2

        SELECT  TO_CHAR(sysdate, 'DD-MON-YY') datevalue,
                TO_CHAR(sysdate, 'HH24:MI-SS') timevalue,
                s.program               sprog,
                s.process               sproc,
                p.spid,
                si.physical_reads       sread,
                si.block_gets           sgets,
                si.consistent_gets      scget,
                si.block_changes        sbchg,
                si.consistent_changes   scchg
                FROM    v\$session s,
                        v\$process p,
                        SYS.v_\$sess_io si
                WHERE   s.paddr = p.addr(+)
                AND     si.SID(+) = s.SID
                AND     s.PROGRAM LIKE 'frmweb%';

EXIT;

END_FILE

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