#!/bin/ksh
# Program:      get_locks
# Purpose:      This script gathers users lock information and 
#               displays the information.
# Author:       Adam Backman
# Date Written: 03/9/98
#
# Setup the environment
SCRIPTS=${SCRIPTS-/u3/users/adamb/scripts}
export SCRIPTS

# Setup database specific variables
. $SCRIPTS/live/read_registry $1

case $? in
2)
        echo "Database $1 is not in database registry"
        exit 1
;;
3)
        echo "Database $1 is on $HOST not on this host"
        exit 1
;;
esac

proutil $DB_DIR/$DB -C busy 2>/dev/null >/dev/null

if [ $? -eq 0 ] 

then

        echo "The database is not running - Lock information to display"
        exit 1

else

        promon $DB_DIR/$DB << $END$ > $SCRIPTS/tmp/lock.lst 2>/dev/null 
2
1
























































q
q
$END$
sort +3 -r -u -n $SCRIPTS/tmp/lock.lst | more

rm $SCRIPTS/tmp/lock.lst
fi