Basic template for writing OO Report in ALV format

*&---------------------------------------------------------------------*
*& Report  ZRC_REP6
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  zrc_rep6.
*----------------------------------------------------------------------*
*       CLASS lcl_report DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_report DEFINITION.
  PUBLIC SECTION.
    METHODS:
      extract,
      display.
  PRIVATE SECTION.
    DATA:
      t_mara TYPE TABLE OF mara.
ENDCLASS.                    "lcl_report DEFINITION
DATA:
  o_report TYPE REF TO lcl_report.
SELECTION-SCREEN BEGIN OF BLOCK file WITH FRAME TITLE text-001.
PARAMETERS:
  p_sub(2),
  p_year(4).
SELECTION-SCREEN end OF BLOCK file.
SELECTION-SCREEN BEGIN OF BLOCK options WITH FRAME TITLE text-002.
SELECT-OPTIONS:
  s_date FOR something.
SELECTION-SCREEN end OF BLOCK options.
START-OF-SELECTION.
  CREATE OBJECT o_report.
  o_report->extract( ).
END-OF-SELECTION.
  o_report->display( ).
*----------------------------------------------------------------------*
*       CLASS lcl_report IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_report IMPLEMENTATION.
  METHOD extract.
    SELECT * INTO TABLE t_mara
      FROM mara UP TO 5 ROWS.
  ENDMETHOD.                    "extract
  METHOD display.
    DATA:
      l_o_table   TYPE REF TO cl_salv_table.
* Get the ALV object refering to the output table
    TRY.
        cl_salv_table=>factory(
          IMPORTING
            r_salv_table = l_o_table
          CHANGING
            t_table      = t_mara ).
      CATCH cx_salv_msg.                                "#EC NO_HANDLER
    ENDTRY.
* Add basic default functionality in the ALV report
* Functions
    DATA:
      l_o_functions TYPE REF TO cl_salv_functions_list.
    l_o_functions = l_o_table->get_functions( ).
    l_o_functions->set_all( abap_true ).
* Display the list
    l_o_table->display( ).
  ENDMETHOD.                    "extract
ENDCLASS.                    "lcl_report IMPLEMENTATION