Displaying Lights (Red, Green, Yellow) in ALV

Demo program for displaying lights (Red, Yellow and Green):

REPORT ALV_LIGHTS.

* Published at SAPTechnical.COM

TYPES: BEGIN OF ty_alv,
      lights(1) TYPE c, "Exception, Holding the value of the lights
      text(20) TYPE c,  "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.

START-OF-SELECTION.
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.