Create Traffic Light Indicator on ALV

form F_TRAFFIC_LIGHT .
  gs_alv-lights = '1'.    "Color red
  gs_alv-text = 'RED SIGNAL'.
  APPEND gs_alv TO gt_alv.

  gs_alv-lights = '2'.    "Color yellow
  gs_alv-text = 'YELLOW SIGNAL'.
  APPEND gs_alv TO gt_alv.

  gs_alv-lights = '3'.    "Color green
  gs_alv-text = 'GREEN SIGNAL'.
  APPEND gs_alv TO gt_alv.

  CALL METHOD cl_salv_table=>factory
    IMPORTING
      r_salv_table = gr_alv
    CHANGING
      t_table      = gt_alv.

  gr_columns = gr_alv->get_columns( ).

  gr_columns->set_exception_column( value = 'LIGHTS' ).

  CALL METHOD gr_alv->display.
endform.                    " F_TRAFFIC_LIGHT