TMP=/usr2/mermio/bda/tmp

testfZ beta.moy

echo ' '
echo -n ' Quelle reference UBV?  '
read rep
zex ubv.peo | grep $rep | awkq |
join -j1 1 - beta.moy > $TMP/ubv.btm

echo ' '
echo -n ' Quelle reference MK?  '
read ans
zex mkk.don | grep $ans > $TMP/mk.sel

echo ' '
echo ' No     Q    beta   TS '
echo ' '
join -a1 -j1 1 -o 1.1 1.2 1.3 2.3 2.4 $TMP/ubv.btm $TMP/mk.sel |
awk ' { printf "%s  %s  %s  %s%s\n", $1, $2, $3, $4, $5 } ' |
tee beta.q | more -23
echo `pwd`/beta.q >> /usr2/mermio/bda/gestion/fich_cree
echo ' '

echo -n ' Voulez-vous dessiner le plan beta/Q (o/n)?  '
read des
case $des in
n)  echo ' ' ; break ; exit 0 ;;
o)  plt_btq ; echo ' ' ;;
esac
 
echo -n 'Voulez-vous imprimer le dessin (o/n)?  '
read impr
case $impr in
n)  echo ' ' ; break ; exit 0 ;;
o)  pr_btq ; echo ' ' ;;
esac