Input loop is part of Short Circuit's Console Program Basics selection.
Task

Read from a text stream either word-by-word or line-by-line until the stream runs out of data.

The stream will have an unknown amount of data on it.




declare line character (200) varying;
 
open file (in) title ('/TEXT.DAT,type(text),recsize(200)' );
on endfile (in) stop;
 
do forever;
   get file(in) edit (line) (L);
   put skip list (line);
end;