PARAMETERS: p_ekgrp TYPE t024-ekgrp.
START-OF-SELECTION.
SELECT FROM t024
FIELDS *
WHERE ekgrp EQ @p_ekgrp
INTO TABLE @DATA(it_t024).
IF sy-subrc = 0.
TRY.
DATA: o_pop_ekgrp TYPE REF TO cl_salv_table.
cl_salv_table=>factory( IMPORTING r_salv_table = o_pop_ekgrp
CHANGING t_table = it_t024 ).
o_pop_ekgrp->get_functions( )->set_all( abap_true ).
o_pop_ekgrp->get_columns( )->set_optimize( abap_true ).
o_pop_ekgrp->get_display_settings( )->set_list_header( 'Einkäufergruppe' ).
o_pop_ekgrp->get_display_settings( )->set_striped_pattern( abap_true ).
o_pop_ekgrp->get_selections( )->set_selection_mode( if_salv_c_selection_mode=>row_column ).
o_pop_ekgrp->set_screen_popup( start_column = 1
end_column = 140
start_line = 1
end_line = 20 ).
o_pop_ekgrp->display( ).
CATCH cx_root INTO DATA(e_txt).
WRITE: / e_txt->get_text( ).
ENDTRY.
ENDIF.