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=-0.5 required=5.0 tests=BAYES_00,INVALID_MSGID, PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII X-Google-Thread: 103376,aa9f2d001b77cd0f X-Google-Attributes: gid103376,public From: nobody@REPLAY.COM (Anonymous) Subject: Re: writing with sequential_Io Date: 1997/12/04 Message-ID: <199712041359.OAA20440@basement.replay.com>#1/1 X-Deja-AN: 295103569 References: <3485F9BA.57EC@er.uqam.ca> Organization: Replay and Company UnLimited Mail-To-News-Contact: postmaster@nym.alias.net X-001: Replay may or may not approve of the content of this posting X-002: Report misuse of this automated service to X-URL: http://www.replay.com/remailer/ Newsgroups: comp.lang.ada Date: 1997-12-04T00:00:00+00:00 List-Id: On Thu, 04 Dec 1997 00:32:07 GMT, Eric wrote: > 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; > > GNAT 3.10p1 produces: enrigistrer_fichier_produits.adb:3:18: "ES_Fichiers" is undefined (more references follow) enrigistrer_fichier_produits.adb:4:28: "Long_Max_Nom_Fich" is undefined enrigistrer_fichier_produits.adb:7:22: "Type_Produit" is undefined enrigistrer_fichier_produits.adb:16:01: "Put" is undefined enrigistrer_fichier_produits.adb:16:01: "Put" is undefined (more references follow) enrigistrer_fichier_produits.adb:17:01: "get" is undefined enrigistrer_fichier_produits.adb:24:13: "end_of_file" is undefined enrigistrer_fichier_produits.adb:26:03: "Es_Naturel" is undefined (more references follow) enrigistrer_fichier_produits.adb:27:03: "Es_Enumeration" is undefined enrigistrer_fichier_produits.adb:31:03: "es_Reels" is undefined Without this information, the compiler cannot tell what you are trying to do. Neither can we. Jeff Carter PGP:1024/440FBE21 My real e-mail address: ( carter @ innocon . com ) "I unclog my nose towards you." Monty Python & the Holy Grail Posted with Spam Hater - see http://www.compulink.co.uk/~net-services/spam/