Stream

define stream stm_data.

define variable data_file_name as character no-undo.

define variable data_file_row as character no-undo.

assign data_file_name = „/home/posmura/data/vp_produkty.txt“.

input stream stm_data from value(data_file_name).

do while true on endkey undo, leave:

    import stream stm_data unformatted data_file_row.

    display data_file_row.

end.

input stream stm_data close.