E-Business Suite: What-Oracle-Accounts are LOCKED.

#!/usr/bin/ksh
#whataccount ()
#-------------------------------------------------------------------------#
#    Module Name:  whataccount  (c) OATC-M.Barone 2012                    #
#                                                                         #
#    Purpose:      Report on the DBA_USERS (Database) Accounts            #
#                                                                         #
#    Maintenance                                                          #
#    Date          Author        Description                              #
#    -----------   ------------  ---------------------------------------  #
#    10-Oct-2012   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  " # whataccount:             Oracle Database Accounts #"
            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/whataccount_$$.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        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

        prompt #----------------------------------------------------------#
        prompt #- What (whataccount)                                     -#
        prompt #----------------------------------------------------------#

        COLUMN  datevalue       NOPRINT NEW_VALUE       DATEVAR
        COLUMN  timevalue       NOPRINT NEW_VALUE       TIMEVAR

        COLUMN  uname  format A14      HEADING 'User|Name'     
        COLUMN  astat  format A7       HEADING 'Account|Status'
        COLUMN  ldate  format A11      HEADING 'Lock|Date'     
        COLUMN  edate  format A11      HEADING 'Expiry|Date'   
        COLUMN  dspce  format A6       HEADING 'Default|Tablespace' 
        COLUMN  tspce  format A6       HEADING 'Temporary|Tablespace'
        COLUMN  cdate  format A11      HEADING 'Creation|Date'       
        COLUMN  pfile  format A7       HEADING 'Profile'            

        TTITLE  CENTER  'Apps Locked-SchemaAccounts '  -
                LEFT    DATEVAR                                   skip 1  -
                CENTER  'E-Business Database Locked Accounts'             -
                LEFT    TIMEVAR                                   skip 2

        alter session set NLS_DATE_FORMAT = 'DD-MON-YYYY HH24:MI:SS';
        SELECT  TO_CHAR(sysdate, 'DD-MON-YY')   datevalue,
                TO_CHAR(sysdate, 'HH24:MI:SS')  timevalue,
                username                 uname,
                account_status                  astat,
              lock_date                  ldate,
                expiry_date              edate,
                default_tablespace       dspce,
                temporary_tablespace            tspce,
              created                           cdate,
              profile                           pfile 
        FROM  dba_users
       WHERE  account_status <> 'OPEN'
       ORDER BY username;

END_FILE

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