定时打印信息

 CLASS CL_TIME_EVENT DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS: AUTO_EXE FOR EVENT  FINISHED OF CL_GUI_TIMER IMPORTING SENDER.
ENDCLASS.                    "cl_time_event DEFINITION

CLASS CL_TIME_EVENT IMPLEMENTATION.
  METHOD AUTO_EXE.
    STATICS: CL_SECOND TYPE I.

    ADD 1 TO CL_SECOND.

    WRITE:/ 'REFRESH' , SY-DATUM ,SY-TIMLO.
*    MESSAGE I001(00) WITH 'class'.

    CALL METHOD SENDER->RUN( ).
  ENDMETHOD.                    "on_finished
ENDCLASS.                    "cl_time_event IMPLEMENTATION

DATA: LTIME TYPE REF TO CL_GUI_TIMER.

START-OF-SELECTION.

  CREATE OBJECT LTIME.

  SET HANDLER CL_TIME_EVENT=>AUTO_EXE FOR LTIME.

  LTIME->INTERVAL = 5.   "定义相隔间隔

  CALL METHOD LTIME->RUN( ).

  WRITE: '测试TIMER......'.