form call_rfc_wait using p_update_type.
  data: lv_mssg(80).

  call function 'RFC_PING_AND_WAIT' starting new task '001'
    performing call_task_end on end of task
    exporting
      seconds               = 5
      busy_waiting        = space
    exceptions
      resource_failure   = 1
      communication_failure = 2  message lv_mssg
      system_failure        = 3  message lv_mssg
      others                = 4.
endform.                    "call_rfc_wait

*&---------------------------------------------------------------------*
*&      Form  f_task_end
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->U_TASKNAME text
*----------------------------------------------------------------------*
form call_task_end using u_taskname.
  data: lv_mssg(80).

  receive results from function 'RFC_PING_AND_WAIT'
    exceptions
      resource_failure      = 1
      communication_failure = 2  message lv_mssg
      system_failure        = 3  message lv_mssg
      others                = 4.

  check sy-subrc eq 0.
  call method r_alvg->raise_event
    exporting i_ucomm = 'MY_COMM'
              i_user_command = 'A'
              i_not_processed = 'X'.
endform.

class gc_event_receiver definition.
  public section.
    methods:
      handle_user_command for event after_user_command of cl_gui_alv_grid importing e_ucomm.
  private section.
endclass. 

class gc_event_receiver implementation.
  method handle_user_command.
    if e_ucomm = 'MY_COMM'.
      perform call_rfc_wait using 'fill'.
    endif.
  endmethod.                    "handle_user_command
endclass.

*----------------------------------------------------------------------*
*       CLASS lcl_periodic_callback DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_periodic_callback DEFINITION.
  PUBLIC SECTION.
    METHODS:
      constructor      IMPORTING i_interval      TYPE int4
                                 i_performing    TYPE c,
      handle_timeout   FOR EVENT finished OF cl_gui_timer.

  PRIVATE SECTION.
    DATA:
      li_timer         TYPE REF TO cl_gui_timer,
      l_performing     TYPE char30.

ENDCLASS.                    "lcl_grid_refresher DEFINITION
*----------------------------------------------------------------------*
*       CLASS lcl_periodic_callback IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_periodic_callback IMPLEMENTATION.
  METHOD constructor.

    l_performing = i_performing.

*   таймер: инициализация
    CREATE OBJECT:  li_timer.
    li_timer->interval = i_interval.
    SET HANDLER handle_timeout FOR li_timer.

*   таймер: запуск
    li_timer->run( ).

  ENDMETHOD.                    "constructor
  METHOD handle_timeout.

*   таймер: перезапуск
    li_timer->cancel( ).
    li_timer->run( ).

*   callback
    PERFORM (l_performing) IN PROGRAM (sy-cprog) IF FOUND.

  ENDMETHOD.                    "handle_timeout
ENDCLASS.                    "lcl_periodic_callback IMPLEMENTATION

DATA gi_periodic_callback TYPE REF TO lcl_periodic_callback.

CREATE OBJECT gi_periodic_callback
  EXPORTING
    i_interval   = 1                      " -->> время, в секундах
    i_performing = 'REFRESH_ALVGRID'.     " -->> ваша callback-подпрограмма


*&---------------------------------------------------------------------*
*&      Form  REFRESH_ALVGRID
*&---------------------------------------------------------------------*
*       ...а здесь вы обновляете свой грид
*----------------------------------------------------------------------*
FORM refresh_alvgrid.

ENDFORM.                    "REFRESH_ALVGRID