How to provide signal lights in ALV output

Question

Hi Experts,
i have one requirement. i am developing one object oriented alv report based on standard report(RFREISCN).i have one requirement in the output provide signal lights(RED(for inactive) AND YELLOW(for account assignment locks)) and to provide custom button 'RELEASE' using object oriented ALV class. how to add please provide me solution.
Thanks,
Venkat.

Answer 1

Copy the program and Check your requirements
Dont' forget to give points please (atlease 2 as the Rule of he SDN Forum)
*& Report  ZMDEMO_ALV_04
*&Make an Exception field ( = Traffic lights)
*&There can be defined a column in the grid for display of traffic lights. This field is of type Char 1, and can contain the following values:
*&  1 Red
*&  2 Yellow
*&  3 Green
*&The name of the traffic light field is supplied inh the gs_layout-excp_fname used by method set_table_for_first_display.
report  zmdemo_alv_04.
tables: sflight.
type-pools: icon.
types: begin of ty_sflight.
         include structure sflight.
types:   traffic_light type c,
        lights LIKE icon_xml_doc,
         lights(4),
         icon type icon-id.
types: end of ty_sflight.
G L O B A L   I N T E R N  A L   T A B L E S
   data: t_sflight type standard table of ty_sflight.
G L O B A L   D A T A
   data: ok_code like sy-ucomm,
         wa_sflight type ty_sflight.
Declare reference variables to the ALV grid and the container
   data:
     go_grid             type ref to cl_gui_alv_grid,
     go_custom_container type ref to cl_gui_custom_container.
   data:
     t_fcat type lvc_t_fcat,
     wa_layout type lvc_s_layo.
S T A R T - O F - S E L E C T I O N.
   start-of-selection.
     perform build_fieldcat.
     perform build_layout.
     set screen '100'.
*&      Module  USER_COMMAND_0100  INPUT
   module user_command_0100 input.
     case ok_code.
       when 'EXIT'.
         leave to screen 0.
     endcase.
   endmodule.                 " USER_COMMAND_0100  INPUT
*&      Module  STATUS_0100  OUTPUT
   module status_0100 output.
Create objects
     if go_custom_container is initial.
       create object go_custom_container
         exporting container_name = 'ALV_CONTAINER'.
       create object go_grid
         exporting
           i_parent = go_custom_container.
       perform load_data_into_grid.
     endif.
   endmodule.                 " STATUS_0100  OUTPUT
*&      Form  load_data_into_grid
   form load_data_into_grid.
      data l_light type c value '1'.
Read data from table SFLIGHT
     select *
       from sflight
       into table t_sflight.
Condition placing to the traffic_light Field
LOOP AT t_sflight INTO wa_sflight.
   wa_sflight-traffic_light = l_light.
   MODIFY t_sflight FROM wa_sflight.
   IF l_light = '3'.
     l_light = '1'.
   ELSE.
     l_light = l_light + 1.
   ENDIF.
ENDLOOP.
Setting the Icon based on the traffic_light field value.
LOOP AT t_sflight INTO wa_sflight.
   CASE wa_sflight-traffic_light.
     WHEN '1'.
       wa_sflight-lights = icon_red_light.
     WHEN '2'.
       wa_sflight-lights = icon_yellow_light.
     WHEN '3'.
       wa_sflight-lights = icon_green_light.
   ENDCASE.
   MODIFY t_sflight FROM wa_sflight.
ENDLOOP.
loop at t_sflight into wa_sflight.
  case l_light.
    when '1'.
      wa_sflight-lights = icon_red_light.
    when '2'.
      wa_sflight-lights = icon_yellow_light.
    when '3'.
      wa_sflight-lights = icon_green_light.
  endcase.
  if l_light = '3'.
    l_light = '1'.
  else.
    l_light = l_light + 1.
  endif.
  modify t_sflight from wa_sflight.
endloop.
Load data into the grid and display them
call method go_grid->set_table_for_first_display
  exporting
   I_BUFFER_ACTIVE               =
   I_BYPASSING_BUFFER            =
   I_CONSISTENCY_CHECK           =
   i_structure_name              = 'SFLIGHT'
   IS_VARIANT                    =
   i_save                        = 'A'
   I_DEFAULT                     = 'X'
    is_layout                     = wa_layout
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
   IT_TOOLBAR_EXCLUDING          =
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
   IR_SALV_ADAPTER               =
  changing
    it_outtab                     = t_sflight[]
    it_fieldcatalog               = t_fcat
   IT_SORT                       =
   IT_FILTER                     =
EXCEPTIONS
   INVALID_PARAMETER_COMBINATION = 1
   PROGRAM_ERROR                 = 2
   TOO_MANY_LINES                = 3
   others                        = 4
   endform.                    " load_data_into_grid
*&      Form  build_fieldcat
      text
-->  p1        text
<--  p2        text
form build_fieldcat .
data: w_fcat type lvc_s_fcat.
define macro_fcat.
  w_fcat-fieldname = &1.
  w_fcat-col_pos = &2.
  w_fcat-coltext = &3.
  append w_fcat to t_fcat.
  clear w_fcat.
end-of-definition.
macro_fcat 'CARRID'   1 text-c01 .
macro_fcat 'CONNID'   2 text-c02 .
macro_fcat 'FLDATE'   3 text-c03 .
macro_fcat 'PRICE'    4 text-c04 .
macro_fcat 'SEATSMAX' 5 text-c05 .
macro_fcat 'SEATSOCC' 6 text-c06 .
macro_fcat 'LIGHTS'   7 text-c07 .
endform.                    " build_fieldcat
*&      Form  build_layout
      text
-->  p1        text
<--  p2        text
form build_layout .
  wa_layout-cwidth_opt = 'X'.
wa_layout-excp_fname = 'TRAFFIC_LIGHT'.
wa_layout-excp_group = '1'.
endform.                    " build_layout
Regards
Manju