I want to read the contents of a file to a text item line by line dynamical

Question

I have created a timer
tm_id := FIND_TIMER('LOG_READING_TIMER');
If Id_Null(tm_id)
then
tm_id := create_timer('LOG_READING_TIMER', 1000, REPEAT);
else
set_timer (tm_id, 1000, REPEAT);
end if;
/* executed the shell script on application server */
host(v_command,no_screen);
and used below code for reading a file in when timer expired
DECLARE
v_file_name := '/home/log.txt' /* log created during running shell script */
BEGIN
v_infile := Text_IO.Fopen(v_file_name , 'r');
loop
Text_IO.Get_Line(v_infile,v_linebuf);
:CONTROL.item:= :CONTROL.item||v_linebuf||chr(10);
end loop;           
WHEN no_data_found THEN
     Text_IO.Fclose(v_infile);
     delete_timer('LOG_TIMER');
END
I want to read a log file which is created while runnning shell script line by line
dynamically
Above code is reading the log filebut all the lines are shown at once.
I have to display
each line on the text item
and the next line line by line
Can anyone help me how to achieve this.
Thanks,
in advance

Answer 1

In when-button-pressed trigger
I have called a shell script on application server using host command
HOST('Path of script',NO_SCREEN);
Shell script writes some set of statements to log file on application server
Problem is to read the log file on to the multiline text item each line simultaneosly
while running the script.
Below is the procedure i have written to achieve this but below code is writing all the lines at once
after entire complete execution of shell script.
for example
shell script writes tolog file:
1. 'Loading of tables';
then loads the data
2. 'emailing data';
3. ...
4. ...
Below code writes
all the 4 lines at once
I want to see in frontend what is going on while running the script
by reading the log file data line by line
WHEN-BUTTON-PRESSED
tm_id := FIND_TIMER('LOG_READING_TIMER');
If Id_Null(tm_id)
then
tm_id := create_timer('LOG_READING_TIMER', 1000, REPEAT);
else
set_timer (tm_id, 1000, REPEAT);
end if;
/* executed the shell script on application server */
host(v_command,no_screen);
WHEN-TIMER-EXPIRED
and used below code for reading a file in when timer expired
DECLARE
v_file_name := '/home/log.txt' /* log created during running shell script */
BEGIN
v_infile := Text_IO.Fopen(v_file_name , 'r');
loop
Text_IO.Get_Line(v_infile,v_linebuf);
:CONTROL.item:= :CONTROL.item||v_linebuf||chr(10);
end loop;
WHEN no_data_found THEN
Text_IO.Fclose(v_infile);
delete_timer('LOG_TIMER');
END
While running the script on application server
I want to see the data from log file simulataneously on to the form when the data is written on to the log file
Please let me know if you need more details.
Thanks,
in advance