DEFINE STREAM ls.
DEFINE VARIABLE lcFile AS CHARACTER NO-UNDO.
DEFINE VARIABLE lcLine AS CHARACTER NO-UNDO.
lcFile = "/tmp/test.txt".
INPUT STREAM ls FROM VALUE(lcFile).
REPEAT:
IMPORT STREAM ls UNFORMATTED lcLine.
MESSAGE lcLine VIEW-AS ALERT-BOX.
END.
INPUT STREAM ls CLOSE.
OUTPUT STREAM ls TO VALUE(lcFile).
FOR EACH Customer NO-LOCK:
PUT STREAM ls UNFORMATTED Customer.Name SKIP.
END.
OUTPUT STREAM ls CLOSE.
