ABAP code for creating a report variant

Question

Hi,
I would like to create parameter on selection screen type SLIS_VARI. I would like that the program will start with pre-defined variant in ALV grid, the same as it is on standard stock report (MB52)...
Can someone tell me how to do this, and where to put the code?
Thanks in advance,
Saso

Answer 1

Hi,
This is the code for variant as parameter and F4 help.
DATA: g_repid LIKE sy-repid,
      g_dynnr LIKE sy-dynnr.
DATA: g_save(1) TYPE c VALUE 'A',
      g_exit(1) TYPE c,
      gx_variant LIKE disvariant,
      g_variant LIKE disvariant.
PARAMETERS: p_vari LIKE disvariant-variant.
INITIALIZATION.
  g_repid = sy-repid.
  g_dynnr = sy-dynnr.
  PERFORM variant_init.
*Get default variant
  gx_variant = g_variant.
  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.
    p_vari = gx_variant-variant.
  ENDIF.
                  AT SELECTION SCREEN                               *
AT SELECTION-SCREEN.
*--PAI of selection screen
  PERFORM pai_of_selection_screen.
*---F4 option for report variant
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM f4_for_variant.
                     SUB-ROUTINES                                   *
FORM variant_init.
  CLEAR g_variant.
  g_variant-report = g_repid.
ENDFORM.                    " variant_init
FORM pai_of_selection_screen.
  IF NOT p_vari IS INITIAL.
    MOVE g_variant TO gx_variant.
    MOVE p_vari TO gx_variant-variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save     = g_save
      CHANGING
        cs_variant = gx_variant.
    g_variant = gx_variant.
  ELSE.
    PERFORM variant_init.
  ENDIF.
ENDFORM.                    " pai_of_selection_screen
  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.
      p_vari = gx_variant-variant.
    ENDIF.
  ENDIF.
AND pass this gx_variant to ALV Function module.
Rewards points if helpful.
Regards,
Srinivas ch