Re: how do I read an variable length file

["Womble, Tony A" <tony.a.womble%usago@pp.ksc.nasa.gov>]

This might help.

Begin-Procedure GET-TEXT1
 If &rept1 <> ''
 open &rept1 as 1 for-reading record=255
 while 1=1
 read 1 into $read_rec1:255

 Print $read_rec1                       (+2,1)  wrap 100 6
 if #end-file  !=1
   break
 end-if
  end-while
 close 1
 end-if
End-Procedure !GET-TEXT1

Tony

> ----------
> From:         Dominick LoGiudice[SMTP:dlogiudice@PINE.VPCC.SUNYSB.EDU]
> Sent:         Monday, April 12, 1999 7:11 PM
> To:   Multiple recipients of list SQR-USERS
> Subject:      how do I read an variable length file
>
> Does anyone have an example of reading an variable length file ?
>