'REUSE_ALV_POPUP_TO_SELECT' con icono

DATA: BEGIN OF ita OCCURS 0,
    ty(4) TYPE  c,
    ms(220)     TYPE c,
    END OF ita.     

TYPES: t_fieldcat         TYPE slis_fieldcat_alv.
data: i_fieldcat         TYPE STANDARD TABLE OF t_fieldcat,
 w_fieldcat         TYPE t_fieldcat.


*iconos

      LOOP AT gt_return.
        CLEAR ita-ms.
        CONCATENATE gt_return-message into ita-ms SEPARATED BY space.
        IF gt_return-type = 'S'.
          ita-ty = icon_green_light.
        ELSEIF gt_return-type = 'E'.
          ita-ty = icon_red_light.
        ELSEIF gt_return-type = 'W'.
          ita-ty = icon_yellow_light.
        ENDIF.
        APPEND ita.
      ENDLOOP.



  CLEAR w_fieldcat.
  w_fieldcat-fieldname = 'TY'.
  w_fieldcat-tabname   = 'ITA'.
  w_fieldcat-seltext_m = 'Tipo'.
  w_fieldcat-icon = 'X'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.

  CLEAR w_fieldcat.
  w_fieldcat-fieldname = 'MS'.
  w_fieldcat-tabname   = 'ITA'.
  w_fieldcat-seltext_m = 'Mensaje'.
  APPEND w_fieldcat TO i_fieldcat.
  CLEAR w_fieldcat.
 
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
      EXPORTING
        i_title               = 'Mensajes '
        i_zebra               = 'X'
        i_screen_start_column = 1
        i_screen_start_line   = 1
        i_screen_end_column   = 150
        i_screen_end_line     = 15
        i_tabname             = 'ITA'
        it_fieldcat           = i_fieldcat
        is_private            = is_private
      TABLES
        t_outtab              = ita
      EXCEPTIONS
        program_error         = 1
        OTHERS                = 2.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.