*---------------------------------------------------------------------*
*       CLASS zef_alv DEFINITION
*---------------------------------------------------------------------*
CLASS zef_alv DEFINITION INHERITING FROM cl_gui_alv_grid.
  PUBLIC SECTION.
    METHODS set_table_for_first_display REDEFINITION.
  PRIVATE SECTION.
    DATA:
      at_output TYPE STANDARD TABLE OF mara
    .
    METHODS get_data.
ENDCLASS.                    "zef_alv DEFINITION

DATA:
  glc_alv TYPE REF TO zef_alv,
  gt_outtab TYPE STANDARD TABLE OF mara
.

START-OF-SELECTION.

  CREATE OBJECT glc_alv
    EXPORTING
      i_parent = cl_gui_custom_container=>default_screen.
  CALL METHOD glc_alv->set_table_for_first_display
    CHANGING
      it_outtab = gt_outtab.
  CALL SCREEN 9000.

*---------------------------------------------------------------------*
*       CLASS zef_alv IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS zef_alv IMPLEMENTATION.
  METHOD set_table_for_first_display.
    DATA:
      ls_layout TYPE lvc_s_layo
    .
    CALL METHOD get_data.
    ls_layout-grid_title = 'The persistent title'.
    CALL METHOD super->set_table_for_first_display
      EXPORTING
        i_structure_name = 'MARA'
        is_layout        = ls_layout
      CHANGING
        it_outtab        = at_output.
  ENDMETHOD.                    "set_table_for_first_display

  METHOD get_data.
    SELECT *
      UP TO 10 ROWS
      INTO TABLE at_output
      FROM mara.
  ENDMETHOD.                    "get_data
ENDCLASS.                    "zef_alv IMPLEMENTATION