Using CL GUI TIMER for automated screen refreshing

http://it.toolbox.com/wiki/index.php/Using_CL_GUI_TIMER_for_automated_screen_refreshing

Did you know that using global class CL_GUI_TIMER, you can write ABAP code that refreshes automatically. Below, I added an example of using this code. You can provide the time interval on the selection screen of this example.

&---------------------------------------------------------------------*
& Report ZZ_GUI_TIMER
&---------------------------------------------------------------------*
& Example using the CL_GUI_TIMER
& Automatic refreshment of the screen dynpro
&---------------------------------------------------------------------*
report zz_gui_timer.

---------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION
---------------------------------------------------------------------*
class lcl_event_handler definition.

public section.
class-methods: on_finished for event finished of cl_gui_timer
importing sender.

endclass. "lcl_event_handler DEFINITION

---------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION
---------------------------------------------------------------------*
class lcl_event_handler implementation.

method on_finished.
statics: ltp_refreshed type i.
add 1 to ltp_refreshed.

write:  'Refresh number:',
ltp_refreshed.

Start timer again

sender->run( ).
endmethod. "on_finished

endclass. "lcl_event_handler IMPLEMENTATION data: rf_gui_timer type ref to cl_gui_timer.

parameters: pa_refrs type i default 10.

start-of-selection.

create object rf_gui_timer.

set handler lcl_event_handler=>on_finished for rf_gui_timer.

Setting the refreshment interval.

rf_gui_timer->interval = pa_refrs.
rf_gui_timer->run(  ).

The session must remain active!

write 'Wait for a while:'