HI
CLOCK ON SCREEN. (Thru write statement)
(This sample code will give an insight
to many abapers who are still wondering
about the concept of TIMER IN ABAP
as compared to other programming languages)
(Timer in ABAP was also a mystery to me
some time back ago)
The Code : (Just Copy Paste)
REPORT abc NO STANDARD PAGE HEADING.
DATA : wa(72) TYPE c.
*----
CLASS my DEFINITION.
PUBLIC SECTION.
METHODS : run_handler FOR EVENT finished OF cl_gui_timer.
ENDCLASS. "my DEFINITION
DATA timer TYPE REF TO cl_gui_timer.
DATA myh TYPE REF TO my.
----
----
*
----
CLASS my IMPLEMENTATION.
METHOD run_handler.
CALL METHOD timer->run.
PERFORM mylist.
ENDMETHOD. "run_handler
ENDCLASS. "my IMPLEMENTATION
*----
*----
Init
INITIALIZATION.
CREATE OBJECT timer.
CREATE OBJECT myh.
SET HANDLER myh->run_handler FOR ALL INSTANCES.
*----
End of selection
START-OF-SELECTION.
WRITE sy-uzeit TO wa.
WRITE wa.
timer->interval = '0.5'.
CALL METHOD timer->run.
*----
FORM mylist.
WRITE sy-uzeit TO wa.
MODIFY LINE 1 LINE VALUE FROM wa.
ENDFORM. "MYLIST
Bluesky
