PROGRAM Z15_06.

INCLUDE Z15_06TOP.
INCLUDE Z15_06O01.

*----------------------------------------------------------------------*
* 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 SFLIGHT
  INTO TABLE GT_SFLIGHT UP TO 25 ROWS.

GS_VARIANT-REPORT = SY-REPID.
GS_VARIANT-USERNAME = SY-UNAME.

CALL SCREEN 100.