Re: File IO problem - silly mistake :o(

["SteveD" <nospam_steved94@attbi.com>]

"prashna" <vashwath@rediffmail.com> wrote in message
news:d40d7104.0212060350.7071cf8a@posting.google.com...
> "Martin Dowie" <martin.dowie@no.spam.btopenworld.com> wrote in message
news:<aspio0$dik$1@knossos.btinternet.com>...
> > "prashna" <vashwath@rediffmail.com> wrote in message
> > news:d40d7104.0212052227.3aaa570a@posting.google.com...
> > >    while END_OF_FILE(FILE_I) loop
> >
> > You'll probably want a second look at this line.
>
>
> Thank's Martin, I corrected it to "not END_OF_FILE(FILE_I)" now it is
working fine.

I would also suggest adding:

with Ada.Exceptions;
 use Ada.Exceptions;

To the start of the file, and

exception
  when REASON: others =>
    Put_Line( "EXCEPTION NAME: " & Exception_Name( REASON ) );
    Put_Line( "EXCEPTION MESSAGE: " & Exception_Message( REASON ) );
    Put_Line( "EXCEPTION INFORMATION: " & Exception_Information( REASON ) );

immediately before the last "end".

If you remove the last new line from your source file and re-run the program
with these additions you'll see why I make this suggestion.

SteveD