Program Variant: Popup by User

Question

Guys,
I have copied some standard code to automatically assign a variant via the Initialisation section (see RIAUFK20).
However, the client wants a popup to display all variants for the user so that they can choose the appropriate variant before the selection-screen is displayed.
Is there a suitable function module for this?

Answer 1

Do you mean:
PARAMETERS   p_var LIKE disvariant-variant
                   DEFAULT '/STANDARD'.
DATA: g_variant          LIKE disvariant.
DATA: gx_variant         LIKE disvariant.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var.
  PERFORM variant_inputhelp_f14 USING p_var.
*       FORM VARIANT_INPUTHELP_F14                                    *
FORM variant_inputhelp_f14 USING p_variant LIKE g_variant-variant.
  DATA h_exit.
  CLEAR gx_variant.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            is_variant          = g_variant
*           I_TABNAME_HEADER    =
*           I_TABNAME_ITEM      =
*           IT_DEFAULT_FIELDCAT =
            i_save              = g_variant_save
       IMPORTING
            e_exit              = h_exit
            es_variant          = gx_variant
        EXCEPTIONS
            not_found           = 1
            program_error       = 2
            OTHERS              = 3.
  IF sy-subrc IS INITIAL AND h_exit IS INITIAL.
    g_variant-variant = gx_variant-variant.
    p_variant         = gx_variant-variant.
  ELSE.
    MESSAGE ID sy-msgid TYPE 'S'
                 NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.
Rob