Read a file one line at a time,
as opposed to reading the entire file at once.



Related tasks

 Read a file character by character
 Input loop.


 
read: procedure options (main);
   declare line character (500) varying;
 
   on endfile (sysin) stop;
 
   do forever;
      get edit (line)(L);
   end;
end read;
 