Search Help（F4 help for the display variant）
PARAMETERS: p_vari LIKE disvariant-variant. "select variant
DATA: v_st_variant LIKE disvariant,
v_stx_variant LIKE disvariant,
v_exit.
CONSTANTS: c_save(1) VALUE ‘A’.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
v_st_variant-report = sy_repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = v_st_variant
i_save = c_save
* it_default_fieldcat =
IMPORTING
e_exit = v_exit
es_variant = v_stx_variant
EXCEPTIONS
not_found = 2.
IF sy-subrc = 2.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
IF v_exit = space.
p_vari = v_stx_variant-variant.
ENDIF.
ENDIF.