Hi,
We usually use the variant in the ALV gid, for viewing the required fields, we use to save the variants and use it for laterpur pose.
report zrich_0003.
data: g_save type c value 'X'.
data: g_variant type disvariant.
data: gx_variant type disvariant.
data: g_exit type c.
data: ispfli type table of spfli.
parameters: variant like disvariant-variant.
at selection-screen output.
check variant is initial.
gx_variant-report = sy-repid.
call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
exporting
i_save = g_save
changing
cs_variant = gx_variant
exceptions
not_found = 2.
if sy-subrc = 0.
variant = gx_variant-variant.
endif.
at selection-screen on value-request for variant.
g_save = 'A'.
clear g_variant.
g_variant-report = sy-repid.
call function 'REUSE_ALV_VARIANT_F4'
exporting
is_variant = g_variant
i_save = g_save
importing
e_exit = g_exit
es_variant = gx_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 g_exit = space.
variant = gx_variant-variant.
endif.
endif.
start-of-selection.
select * into table ispfli from spfli.
g_variant-report = sy-repid.
g_variant-variant = variant.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_structure_name = 'SPFLI'
i_save = g_save
is_variant = g_variant
tables
t_outtab = ispfli
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
Bluesky
