utiliza esta forma:
Data : begin of itab_para_Table_Control occurs 0,
...
icono(40) type C,
...
end of itab_para_Table_Control.
...
Data : g_estado(02) type c,
g_Icono type icons-text,
g_NameIcono type icon-name .
.....
perform AsignarIcono using g_estado
changing g_icono.
if sy-subrc eq 0.
itab_para_Table_Control-icono = g_icono.
endif.
.....
FORM AsignarIcono using p_estado
changing p_icono.
case p_estado(2).
when 'Ok'.
p_nameicono = 'ICON_CHECKED'.
when '* '.
p_nameicono = 'ICON_INCOMPLETE'.
endcase.
call function 'ICON_CREATE'
exporting
name = g_nameicono
*** text = pa_icon_text
*** info = pa_icon_quick_info
importing
result = p_icono
exceptions
icon_not_found = 1
outputfield_too_short = 2
others = 3.
ENDFORM. " AsignarIcono
Saludos
J
|