IF r_ucomm = '&IC1'.
LOOP AT it_sflight INTO wa_sflight.
wa_fieldcat-edit = 'X'.
* READ TABLE it_sflight INTO wa_sflight INDEX sel_field-tabindex.
MODIFY it_fieldcat FROM wa_fieldcat INDEX sel_field-tabindex.
CLEAR wa_fieldcat.
ENDLOOP.
sel_field-refresh = 'X'.
ENDIF.