|
DEFINE m_fieldcatalog.
clear wa_fieldcat.
wa_fieldcat-tabname = 'T_ALV'.
wa_fieldcat-fieldname = 1&.
wa_fieldcat-seltext_l = 2&.
wa_fieldcat-col_pos = &3.
wa_fieldcat-edit = &4.
wa_fieldcat-checkbox = 'X'.
wa_fieldcat-just = 'L'.
append wa_fieldcat to t_fieldcat.
clear wa_fieldcat.
END-OF-DEFINITION.
LOOP AT t_alv INTO w_alv.
IF w_alv-sel = 'X'.
m_fieldcatalog: 'CONTROL' 'Control' '01' ' '.
ELSE.
m_fieldcatalog: 'CONTROL' 'Control' '01' 'X'.
ENDIF.
ENDLOOP.
|