2013-04-10 22:43:41 -07:00
|
|
|
declare line character (200) varying;
|
|
|
|
|
|
|
|
|
|
open file (in) title ('/TEXT.DAT,type(text),recsize(200)' );
|
|
|
|
|
on endfile (in) stop;
|
|
|
|
|
|
|
|
|
|
do forever;
|
2015-02-20 00:35:01 -05:00
|
|
|
get file(in) edit (line) (L);
|
2013-04-10 22:43:41 -07:00
|
|
|
put skip list (line);
|
|
|
|
|
end;
|
