clear gs_variant_i.
gs_variant_e-report = sy-repid.
call function 'LVC_VARIANT_DEFAULT_GET'
exporting
i_save = 'X'
changing
cs_variant = gs_variant_e
exceptions
not_found = 2.
if sy-subrc = 0.
p_varik = gs_variant_e-variant.
endif.