How to get the variants for LAV LIST or GRID?

Question

Hi,
How to get the variants which are stored in table like JVSO1, using function module REUSE_ALV_VARIANT_F4 ?
Thanks.

Answer 1

Hi,
Delcare
DATA : st_variant  TYPE disvariant,       "Work area for variant
       st_variant1 TYPE disvariant.       "Work area for variant
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-041.
PARAMETERS :     p_varnt TYPE  disvariant-variant MODIF ID md8.  "Variant
SELECTION-SCREEN END OF BLOCK b3.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varnt.
*--Local Variables
  DATA: l_exit(1) TYPE c.                "ALV exit
*--Call the function module to display the list of Variants
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = st_variant
      i_save        = c_save
    IMPORTING
      e_exit        = l_exit
      es_variant    = st_variant1
    EXCEPTIONS
      not_found     = 1
      program_error = 2.
*--Check Subrc
  IF sy-subrc <> 2 AND l_exit IS INITIAL.
    p_varnt = st_variant1-variant.
  ENDIF.
start-of-selection.
  IF NOT p_varnt IS INITIAL.
    CLEAR st_variant1.
    MOVE st_variant TO st_variant1.
    MOVE p_varnt TO st_variant1-variant.
*--Call the function module to check the variant exist
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save     = c_save
      CHANGING
        cs_variant = st_variant1.
    st_variant = st_variant1.
  ENDIF.
DATA : lv_repid TYPE sy-repid.
*--Pass the Report name
  lv_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = lv_repid
      it_fieldcat             = it_fcat
      is_variant              = st_variant
      it_events               = it_events
      i_save                  = 'A'
      i_callback_user_command = 'USER_COMMAND'
    TABLES
      t_outtab                = it_zsd_ra
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
  IF sy-subrc <> 0.
    MESSAGE e368(00) WITH 'Alv Display failed'(044)  .
  ENDIF.
regards,
Prashant