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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9e47ad8d460f46b8
X-Google-Attributes: gid103376,public
From: Christoph Grein <christoph.grein@eurocopter.de>
Subject: Re: Extracting Fields in Files
Date: 2000/01/14
Message-ID: <200001140610.HAA09245@bulgaria.otn.eurocopter.de>#1/1
X-Deja-AN: 572505319
To: comp.lang.ada@ada.eu.org@bulgaria.otn.eurocopter.de
Content-Type: TEXT/plain; charset=us-ascii
Content-MD5: G5qL3wpT7hYZR8aJmAgRdw==
X-Complaints-To: usenet@enst.fr
X-Trace: menuisier.enst.fr 947846509 1063 137.194.161.2 (14 Jan 2000 10:41:49
 GMT)
Organization: ENST, France
X-BeenThere: comp.lang.ada@ada.eu.org
Mime-Version: 1.0
Reply-To: comp.lang.ada@ada.eu.org
NNTP-Posting-Date: 14 Jan 2000 10:41:49 GMT
Newsgroups: comp.lang.ada
Date: 2000-01-14T10:41:49+00:00
List-Id: <comp.lang.ada>

When you do

 get_line (file => tip0125,
           item => rec01,
           last => rec01_length);

I presume you have defined rec01 (knowing that the maximum record
length is 212) as

  rec01: String (1..212);

Now read very carefully the corresponding chapter in the RM and you'll find
that reading exactly 212 characters will leave the LF (the end of line on
Unix, i.e. end of record, as you call it) unread. So your next get_line simply
reads the LF and returns an empty line.

As a simple work-around declare

  rec01: String (1..213);

(one longer than the maximum expected length) and a get_line will always
swallow the LF.