Agregar icono a ALV

1.TOP
Agregar campo a icon(30), estructura alv.
INCLUDE .

2.construir_catalogo
PERFORM llenar_fieldcat USING 'ICON' 'GTD_ASPIRANTE_ALV' '' 'X'
                               '' text-r03 text-r04 '' ''
                               '11' CHANGING po_gtd_fieldcat.
3.Llenar_fieldcat
IF pi_campo = 'ICON'.
    lwa_fieldcat-icon = 'X'.
  ENDIF.
4.cargar_data
*   cargar icono dependiendo del estado del aspirante
    CASE -estad.
      WHEN 'Registrado'.
        -icon = icon_checked.
      WHEN 'Aprobado'.
        -icon = icon_positive.
      WHEN 'Desaprobado'.
        -icon = icon_negative.
      WHEN 'Cargado'.
        -icon = icon_complete.
    ENDCASE.
6.actualiazar_tabla_alv
CASE lwa_aspirante_alv-estad.
      WHEN 'Registrado'.
        lwa_aspirante_alv-icon = icon_checked.
      WHEN 'Aprobado'.
        lwa_aspirante_alv-icon = icon_positive.
      WHEN 'Desaprobado'.
        lwa_aspirante_alv-icon = icon_negative.
      WHEN 'Cargado'.
        lwa_aspirante_alv-icon = icon_complete.
    ENDCASE.