REPORT  Z17_011                                                     .

INCLUDE z17_011_CLASS.

* Create reference to class lcl_airplane
DATA: airplane1 TYPE REF TO lcl_airplane,
      airplane2 TYPE REF TO lcl_airplane.

START-OF-SELECTION.

* Create instance
  CREATE OBJECT airplane1.
  CALL METHOD: airplane1->display_n_o_airplanes.

  CREATE OBJECT airplane2.

* Setting attributes using a method with parameters
  CALL METHOD airplane1->set_attributes EXPORTING p_name      = 'Kurt'
                                                  p_planetype = 'MD80'.
END-OF-SELECTION.
* Using methods
  CALL METHOD: airplane1->display_n_o_airplanes,
               airplane1->display_attributes.