while :
do 

page <<Bout
	$so Mise a jour de la Base de Donnees $se


	Que voulez-vous faire?

	Ajouter des references ................ 1$se
	Ajouter des nouvelles mesures ......... 2$se
        Creer un nouveau fichier .............. 3$se
	Completer un fichier .................. 4$se
        Mettre a jour un fichier contenu ...... 5$se
	Creer un nouveau fichier contenu ...... 6$se
	Editer un fichier contenu ............. 7$se
	Afficher les totaux pour un fichier ... 8$se
	Afficher les totaux par donnees ....... 9$se
        Mettre a jour les statistiques ....... 10$se
	Agir sur un fichier .................. 11$se
        Retourner au shell ................... 12$se

	Terminer la procedure ............... fin$se


Bout
echo -n "	 Donnez votre choix:      "
read cho
echo "$se"
echo ' '
case $cho in

1) clear ; echo ' ' 
   echo "	$us Adjonction de nouvelles references $se"
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; adrf $don ;;

2) clear ; echo ' '
   echo "	$us Ajout de nouvelles donnees $se"
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; TY=`nof $don` ; testf -f $TY || test -f $TY.Z
   case $? in
     0) ;;
     *) cpfmt $don ;;
     esac
   ajou $don ; continue ;;

3) clear ; echo ' '
   echo "	 $us Creation d'un nouveau fichier de donnees $se"
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; echo ' ' ; cpfmt $don ; continue ;;

4) clear ; echo ' '
   echo "	$us Fusion d'un supplement avec le fichier principal $se"
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; TY=`nof $don` ; rft $TY ; continue ;;

5) clear ; echo ' '
   echo "	$us Mise a jour des fichier /contenu $se "
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; msj_cnt $don ;;

6) clear ; echo ' '
   echo "	$us Creation d'un fichier /contenu $se "
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; TY=`nof $don` ; new_cnt $TY & ;;

7) clear ; echo ' '
    echo "	$so Edition d'un fichier contenu $se"
    echo ' ' ; echo -n "	 Pour quel type de donnees?  "
    read don ; TY=`nof $don` ; vz $BDA/contenu/$TY
    continue ;;

8) clear ; echo ' '
    echo "	$us Totalisation des donnes disponibles $se"
    echo ' ' ; echo -n "	 Pour quel type de donnees?  "
    read don ; $don -t ;;

9) clear ; echo ' '
   echo "	$us Totalisation des donnes disponibles $se"
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; stcn $don ;;

10) vi /usr2/mermio/bda/resultat/stacon.dat ; continue ;;

11)  while :
     do

     page <<Bout

	 Action sur un fichier 

	Trier un fichier ............ a$se
	Renommer un fichier ......... b$se
	Sauvegarder un fichier ...... c$se
	Restaurer un fichier ........ d$se
	Compresser un fichier ....... e$se
	Editer un fichier ........... f$se
	Mettre des 0 sur le numero .. g$se
	Visionner un fichier ........ h$se
	Retour ...................... r$se


Bout
echo -n "	 Donnez votre choix:      "
read cho
echo "$se"
echo ' '
case $cho in
a) clear ; echo ' ' 
   echo "	$us Tri d'un fichier $se"
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don 
   case $don in
     irv) trirv vrad.irv ;;
     *) TY=`nof $don` ; tri $TY ;;
   esac ;;

b) clear ; echo ' '
   echo "	$us Renommer un ficher $se "
   echo ' ' ; echo -n "	 Quel fichier?  "
   read fic ; echo ' ' ; echo -n "	 Nouveau nom?  "
   read nou ; echo ' ' ; mv $fic $nou && echo '	 Fichier renomme ' ;;

c) clear ; echo ' ' 
    echo "	$us Sauvegarder un fichier dans le repertoire bda/sauve $se"
    echo ' ' ; echo -n "	 Quel fichier?  "
    read fich ; echo ' ' ; svg $fich && echo '	 Fichier sauvegarde ' ;;

d) clear ; echo ' '
    echo "	$us Restauration d'un fichier a partir de bda/sauve $se"
    echo ' ' ; echo -n "	 Quel fichier?  " ; read fich ; echo ' '
    cp $BDA/sauve/$fich $fich && echo '	 Fichier restaure ' ;;

e) clear ; echo ' '
   echo "	$us Compresser un ficher $se "
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; TY=`nof $don` ; compress $TY ;;

f) clear ; echo ' '
   echo "	$us Editer un ficher $se "
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; TY=`nof $don` ; vz $TY ;;

g) clear ; echo ' '
   echo "	$us Mettre en forme les numeros $se "
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; TY=`nof $don` ; awkzero < $TY > f.tmp
   mv f.tmp $TY ;;

h) clear ; echo ' '
   echo "	$us Visionner le debut d'un fichier $se "
   echo ' ' ; echo -n "	 Pour quel type de donnees?  "
   read don ; TY=`nof $don` ; zhd $TY
   echo ' ' ; echo -n " - suite -  " ; read suit ;;

r) echo ' '
   echo -n "	Retour au menu principal (o/n/f) ?  "
   read rep
   case $rep in
   o) break ;;
   n) ;;
   f) exit 2 ;;
   esac ;;

esac
done ;;
   
12) clear ; echo "	 $us Retour au shell $se" ; echo ' ' 
     (amas=`awkam $OCL` 
     echo ' '  ; echo -n "$md$amas> $se"
     read des ret1 ret2 ret3 ret4 ret5 ret6 ret7 ret8 ret9
     while test $des != fin
     do
     echo ' '
     eval $des $ret1 $ret2 $ret3 $ret4 $ret5 $ret6 $ret7 $ret8 $ret9
     echo ' '  ; echo -n "$md$amas> $se"
     read des ret1 ret2 ret3 ret4 ret5 ret6 ret7 ret8 ret9
     done ) ;;

fin) echo ' ' ; exit 0 ;;
esac

case $cho in
r) continue ;;
esac 

echo -n "$so suite (o/n)?     "
read suit
echo "$se"
case $suit in
o) ;;
n) echo ' ' ; exit 0 ;;
esac

done