PROGRAM z15_08.

INCLUDE z15_08top.
INCLUDE z15_08o01.
INCLUDE z15_08f01.

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN ON VALUE-REQUEST
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  gs_variant-report = sy-repid.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = gs_variant
      i_save        = 'A'
    IMPORTING
      es_variant    = gs_variant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.

  IF sy-subrc EQ 0.
    p_vari = gs_variant-variant.
  ENDIF.

*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.

  SELECT *
    FROM zemplist
    INTO TABLE @gt_emplist.

  PERFORM setting_layout CHANGING gs_layout.
  PERFORM setting_toolbar.

  gs_variant-report = sy-repid.
  gs_variant-username = sy-uname.

  CALL SCREEN 100.