Help needed on ALV variant with new GUI screen is created by set PF status

Question

Hi Gurus,
I have created a new GUI screen for ALV grid display thru set pf-status, since i need two buttons on application toolbar.
have been passing parameters to alv_grid_display FM for display-*
i_save            = 'A'
is_variant        = gwa_variant
I have an ALV variant selection paramter on selection screen.
Please guide me with some pointers on how to implement ALV variant selection thru selection screen.
Many Thanks,
Madan

Answer 1

Hi,
Search default variant for the report
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            i_save     = 'A'
       CHANGING
            cs_variant = i_variant1
       EXCEPTIONS
            not_found  = 2.
If default variant is found , use it as default.
Else , use the variant LAYOUT1.
  IF sy-subrc = 0.
    p_var = i_variant1-variant.
  ELSE.
    p_var = 'LAYOUT1'.
  ENDIF.
endform.                    " SUB_VARIANT_INIT
*&      Form  SUB_CHECK_PVAR
Once the user has entered variant, check about its existence
FORM SUB_CHECK_PVAR.
If the name of the variable is not blank, check about its existence
if not p_var is initial.
  clear i_variant.
  i_variant-report = sy-repid.
  i_variant-variant = p_var.
  CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              I_SAVE     = 'A'
         CHANGING
              CS_VARIANT = I_VARIANT.
If no such variant found , flash error message
     if sy-subrc ne 0 .
      message e398(00) with 'No such variant exists'.
     else.
If variant exists , use the variant name to populate structure
I_VARIANT1 which will be used for export parameter : IS_VARIANT
in the function module : REUSE_ALV_GRID_DISPLAY
       clear i_variant1.
       move p_var to i_variant1-variant.
       move sy-repid to i_variant1-report.
     endif.
else.
   clear i_variant.
endif.
ENDFORM.                    " SUB_CHECK_PVAR
*&      Form  SUB_VARIANT_F4
Display a list of various variants of the report when the
user presses F4 key in the variant field
form SUB_VARIANT_F4.
i_variant-report = sy-repid.
Utilising the name of the report , this function module will
search for a list of variants and will fetch the selected one into
the parameter field for variants
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            IS_VARIANT         = I_VARIANT
            I_SAVE             = 'A'
            I_DISPLAY_VIA_GRID = 'X'
       IMPORTING
            ES_VARIANT         = I_VARIANT1
       EXCEPTIONS
            NOT_FOUND          = 1
            PROGRAM_ERROR      = 2
            OTHERS             = 3.
  IF SY-SUBRC = 0.
    P_VAR = I_VARIANT1-VARIANT.
ENDIF.
endform.                    " SUB_VARIANT_F4
Thanks
Ashu