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=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Reading data from file
Date: Sun, 09 Mar 2014 19:42:24 -0700
Organization: Also freenews.netfront.net; news.tornevall.net
Message-ID: <lfj8qh$lps$1@dont-email.me>
References: <a8343425-3e25-4592-a5f5-5395f4a70221@googlegroups.com>
 <orIsCUDPahFTFwJN@ada-augusta.demon.co.uk>
 <9b780534-04fb-43c8-b8de-1610421c471d@googlegroups.com>
 <u4odG4BP3yFTFwZb@ada-augusta.demon.co.uk>
 <df64ee54-cb10-41a6-8521-39a1ca46291b@googlegroups.com>
 <lf83a7$mqa$1@dont-email.me>
 <3b08719c-e689-4170-9c1c-3f9250030dd6@googlegroups.com>
 <bnpj2hFt7elU1@mid.individual.net>
 <5c2fbc70-26cc-4656-b18e-7e2c0251e3c9@googlegroups.com>
 <1k2kd9jvh59hm$.fvcqzozu55g7.dlg@40tude.net>
 <d5563348-6c40-4dd9-8860-e6edb01c6824@googlegroups.com>
 <1c0ut34zkn6ik.ozor88pk1lyl.dlg@40tude.net>
 <d0607df2-83bc-4019-bff7-59580f4fad82@googlegroups.com>
 <cb082534-18ee-4f22-b7df-bc3d6065843a@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 10 Mar 2014 02:42:26 +0000 (UTC)
Injection-Info: mx05.eternal-september.org;
 posting-host="bd5e647da89610f9b7b0763dacbc65f9";
	logging-data="22332"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+XsTmfy3+0aEZk8A+RSkod7f0v/obsDRM="
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:24.0) Gecko/20100101 Thunderbird/24.3.0
In-Reply-To: <cb082534-18ee-4f22-b7df-bc3d6065843a@googlegroups.com>
Cancel-Lock: sha1:jA4aMkdFgcp4/sXS0PjyYvlX93Y=
Xref: news.eternal-september.org comp.lang.ada:18800
Date: 2014-03-09T19:42:24-07:00
List-Id: <comp.lang.ada>

On 03/09/2014 03:39 PM, Laurent wrote:
>
>              Read_From_File : loop
>                 Read_File : loop
>                    Read_Record : loop

I don't know, but I suspect it has something to do with having 3 loops when you 
only need 1:

    Ada.Text_IO.Open (...);

    Read_All_Records : loop
       Employees.IO.Read_Employee_From_File (...);

       exit Read_All_Records when End_Of_File or End_Of_Record;

       Database.Insert (...);
       ...
    end loop Read_All_Records;

    Ada.Text_IO.Close (...); -- Don't forget this.

-- 
Jeff Carter
"Why, the Mayflower was full of Fireflies, and a few
horseflies, too. The Fireflies were on the upper deck,
and the horseflies were on the Fireflies."
Duck Soup
95