From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: **
X-Spam-Status: No, score=2.9 required=5.0 tests=BAYES_20,INVALID_MSGID,
	PP_MIME_FAKE_ASCII_TEXT,REPLYTO_WITHOUT_TO_CC autolearn=no
	autolearn_force=no version=3.4.4
X-Google-Language: FRENCH,ASCII
X-Google-Thread: 103376,aa9f2d001b77cd0f,start
X-Google-Attributes: gid103376,public
From: Eric <jj091849@er.uqam.ca>
Subject: writing with sequential_Io
Date: 1997/12/04
Message-ID: <3485F9BA.57EC@er.uqam.ca>#1/1
X-Deja-AN: 295009070
NNTP-Posting-Date: Wed, 03 Dec 1997 19:32:07 EST
Reply-To: jj091849@er.uqam.ca
Newsgroups: comp.lang.ada
Date: 1997-12-04T00:00:00+00:00
List-Id: <comp.lang.ada>


I'd like to know if someone can find the errors in this file:
--------------------------------------------------------------
procedure Enrigistrer_Fichier_Produits is 

Fichier_Entrep : ES_Fichiers.File_Type;
Nom_Du_Fichier : String(1..Long_Max_Nom_Fich);

--Variables locales
    Produit        : Type_Produit;
   
    i              : Natural:=0;
    j              : Natural:=1;
    k              : Natural:=1;
    l              : Natural:=0;


begin 
Put(Item=> "Quel va etre le nom de sauvegruard du fichier ? ");
get(Nom_Du_Fichier);

Es_fichiers.create(File => Fichier_Entrep,
       Mode => Es_fichiers.Out_File,
       Name => Nom_Du_Fichier  );
     --affichage des donnes � l'ecran
  Put(Item =>"Numero:   nature:  model:  qnt. Inventaire:  qnt. Vendu: 
Prix: ");
  while not end_of_file loop
   for i IN j..j+9 loop
  Es_Naturel.Put(Item=> t(i).numero);
  Es_Enumeration.Put(Item=> t(i).nature);
  Put(Item=> t(i).modele);
  Es_Naturel.Put(Item=> t(i).Qte_Inventaire);
  Es_Naturel.Put(Item=> t(i).Qte_Vendue);
  es_Reels.Put(Item=> t(i).Prix_Unitaire);


  Es_Fichiers.Write(File => Fichier_Entrep,  
                    Item => T(i));
                            
                           
end loop;--for   
  j:=j+10;
end loop;--while



  
end Enrigistrer_Fichier_Produits;