Traffic Lights

TYPES: BEGIN OF ty_alv,
        lights_1 TYPE icon_d, "Exception, Holding the value of the lights
        lights_2 TYPE icon_d,  "some text
        lights_3 TYPE icon_d,  "some text
*        lights_4 TYPE icon_d,  "some text
       END OF ty_alv.

DATA: gs_alv TYPE ty_alv,
      gt_alv TYPE TABLE OF ty_alv,
      gr_alv TYPE REF TO cl_salv_table,
      gr_columns TYPE REF TO cl_salv_columns_table.

*-----------------------------------------------*
* CLASS lcl_receiver DEFINITION
*-----------------------------------------------*
*
*-----------------------------------------------*
CLASS lcl_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_finished FOR EVENT finished OF cl_gui_timer.
ENDCLASS.                    "

DATA:
i_data TYPE TABLE OF spfli,
o_grid TYPE REF TO cl_gui_alv_grid,
receiver TYPE REF TO lcl_receiver,
timer TYPE REF TO cl_gui_timer.

DATA : lv_temp TYPE i.

CONSTANTS:
c_interval TYPE i VALUE 1.

CREATE OBJECT timer.
CREATE OBJECT receiver.
SET HANDLER receiver->handle_finished FOR timer.
timer->interval = c_interval.
CALL METHOD timer->run.

START-OF-SELECTION.

  DATA : v_index TYPE index.

  DO 33 TIMES.

    v_index = sy-index.

    IF v_index LE 11.
      MOVE : '@5B@' TO gs_alv-lights_1,
       '@5B@' TO gs_alv-lights_2,
       '@5B@' TO gs_alv-lights_3.
*       '@BZ@'  TO gs_alv-lights_4.
      APPEND gs_alv TO gt_alv.

    ELSEIF v_index GT 11 AND v_index LE 22.
      MOVE : '@5D@' TO gs_alv-lights_2,
       '@5D@' TO gs_alv-lights_3,
       '@5D@' TO gs_alv-lights_1.
*       '@BZ@'  TO gs_alv-lights_3.
      APPEND gs_alv TO gt_alv.

    ELSEIF v_index GT 22 AND v_index LE 33.
      MOVE : '@5C@' TO gs_alv-lights_3,
       '@5C@' TO gs_alv-lights_1,
       '@5C@' TO gs_alv-lights_2.
*       '@BZ@'  TO gs_alv-lights_2.
      APPEND gs_alv TO gt_alv.
    ENDIF.
  ENDDO.

  CALL METHOD cl_salv_table=>factory
*    EXPORTING
*      list_display = 'X'
    IMPORTING
      r_salv_table = gr_alv
    CHANGING
      t_table      = gt_alv.

  CALL METHOD gr_alv->refresh.

  gr_columns = gr_alv->get_columns( ).

*  gr_columns->set_exception_column( value = 'ICON' ).

  CALL METHOD gr_alv->display.

*------------------------------------------------*
* CLASS lcl_receiver IMPLEMENTATION
*------------------------------------------------*
*
*------------------------------------------------*
CLASS lcl_receiver IMPLEMENTATION.
  METHOD handle_finished.
    PERFORM refresh_view.
    CALL METHOD timer->run.
  ENDMETHOD.                    "handle_finished
ENDCLASS.                    "lcl_receiver IMPLEMENTATION

*&-----------------------------------------------*
*& Form refresh_view
*&-----------------------------------------------*
* Refresh logic
*------------------------------------------------*
FORM refresh_view.

  FIELD-SYMBOLS : <lfs_alv> TYPE ty_alv.

  DATA : lv_index TYPE sytabix.
  UNASSIGN <lfs_alv>.

  DO 11 TIMES.
*    CLEAR lv_index.
*    lv_index = sy-index.
    UNASSIGN <lfs_alv>.
    READ TABLE gt_alv ASSIGNING <lfs_alv> INDEX 1.
    CHECK <lfs_alv> IS ASSIGNED.
    APPEND <lfs_alv> TO gt_alv.
    DELETE gt_alv INDEX 1.
  ENDDO.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = o_grid.

  IF o_grid IS NOT INITIAL.
    CALL METHOD o_grid->refresh_table_display.
  ENDIF.
ENDFORM.                    "refresh_view