:
#
#     BRSBUQ.SH
#
#	Shell proc to support old BRS/Queue names utilizing
#	a simple translate linkage.
#
#	SCCS ID "@(#) BRS brsbuq.sh v61.2 (8/28/92) { Release 6.1 }"
#

Prog=$0
Dir=`expr ${Prog} : '\(.*/\).*'`
if [ "$Dir" = 0 ]
then
	Dir=""
	fi
Base=`expr ${Prog} : '.*/\(.*\)' \| "${Prog}"`

case ${Base} in			# translate to BUQ name
brsqstat)	buq="buqstat" ;;
brsqup)		buq="buqup" ;;
brsqdown)	buq="buqdown" ;;
brsmkhist)	buq="buqmkhist" ;;
brsqueue)	buq="buqueue" ;;
*)		buq="" ;;
esac

if [ "X$buq" = X ]
then				# error if no translation
	echo `basename $0`": no translation"
else				# execute program
	exec ${Dir}${buq} $@
	fi

exit 127
