***********************************
* SAP Database                    *
* http://www.sapdb.info           *
***********************************

REPORT z_class_test .

*---------------------------------------------------------------------*
*       CLASS display DEFINITION
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
CLASS display DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS: class_constructor.
    METHODS: constructor.


  PRIVATE SECTION.
    CLASS-DATA: list TYPE REF TO cl_gui_alv_grid.
    DATA: it_vbap TYPE TABLE OF vbap,
          ist_var TYPE disvariant.
ENDCLASS.


*---------------------------------------------------------------------*
*       CLASS display IMPLEMENTATION
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
CLASS display IMPLEMENTATION.

  METHOD class_constructor.
    CREATE OBJECT list
    EXPORTING i_parent = cl_gui_container=>screen0.
  ENDMETHOD.

  METHOD constructor.
    SELECT * FROM vbap INTO TABLE it_vbap.

    CALL METHOD list->set_table_for_first_display
       EXPORTING
         i_structure_name              = 'VBAP'
         is_variant                    = ist_var
      CHANGING
        it_outtab                     = it_vbap
            .
    IF sy-subrc <> 0.
    ENDIF.

*   Double click and create a empty screen
    CALL SCREEN 100.
    
  ENDMETHOD.

ENDCLASS.

DATA: oref TYPE REF TO display.

START-OF-SELECTION.
  SET PF-STATUS 'ZCLASS_TEST'.
  CREATE OBJECT oref.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  IF sy-ucomm EQ 'BACK' OR
     sy-ucomm EQ 'CANCEL' OR
     sy-ucomm EQ 'EXIT'.
    LEAVE PROGRAM.
  ENDIF.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'ZCLASS_TEST'.
ENDMODULE.                 " STATUS_0100  OUTPUT