*&---------------------------------------------------------------------*
*& Report Z_TASK3
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_TASK3.

TABLES sflight.

PARAMETERS: pcarrid TYPE sflight-carrid DEFAULT 'AA',
pconnid TYPE sflight-connid DEFAULT '64'.
SELECT-OPTIONS s_fldate FOR sflight-fldate DEFAULT '20160101' TO '20161001' NO-EXTENSION.

DATA: data_sflight TYPE TABLE OF sflight.

*&---------------------------------------------------------------------*
*& Class lcl_select_class
*&---------------------------------------------------------------------*
* Text
*----------------------------------------------------------------------*
CLASS lcl_select_class DEFINITION.
  PUBLIC SECTION.
  METHODS:
    select_data.
ENDCLASS.

*&---------------------------------------------------------------------*
*& Class (Implementation) lcl_select_class
*&---------------------------------------------------------------------*
* Text
*----------------------------------------------------------------------*
CLASS lcl_select_class IMPLEMENTATION.
  METHOD select_data.
    SELECT * FROM sflight INTO TABLE data_sflight WHERE carrid = pcarrid AND connid = pconnid AND fldate IN s_fldate.
  ENDMETHOD.
ENDCLASS. "lcl_select_class


*&---------------------------------------------------------------------*
*& Class lcl_grid
*&---------------------------------------------------------------------*
* Text
*----------------------------------------------------------------------*
CLASS lcl_grid DEFINITION.
  PUBLIC SECTION.
  METHODS:
    view.
ENDCLASS.

*&---------------------------------------------------------------------*
*& Class (Implementation) lcl_grid
*&---------------------------------------------------------------------*
* Text
*----------------------------------------------------------------------*
CLASS lcl_grid IMPLEMENTATION.
  METHOD view.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    I_STRUCTURE_NAME = 'sflight'
    TABLES
    T_OUTTAB = data_sflight.
  ENDMETHOD.
ENDCLASS.

Start-Of-Selection.
  DATA: grid_inst TYPE REF TO lcl_grid.
  DATA: select_inst TYPE REF TO lcl_select_class.
  CREATE OBJECT: select_inst.
  CREATE OBJECT: grid_inst.


  select_inst->select_data( ).
  grid_inst->view( ).