*&---------------------------------------------------------------------*
*&  Include           Z17_011_CLASS                                    *
*&---------------------------------------------------------------------*
* Definition part
******************************************
CLASS lcl_airplane DEFINITION.
*------------------------------
* Public section
*------------------------------
  PUBLIC SECTION.
    TYPES: t_name(25) TYPE c.
    METHODS:
     constructor,
     set_attributes IMPORTING p_name       TYPE t_name
                              p_planetype  TYPE saplane-planetype,
      display_attributes,
      display_n_o_airplanes.
*------------------------------
* Private section
*------------------------------
  PRIVATE SECTION.
*   Private attributes
    DATA: name(25) TYPE c,
          planetype TYPE saplane-planetype.
*   Private static attribute
    CLASS-DATA n_o_airplanes TYPE i.
ENDCLASS.
******************************************
* Implementation part
******************************************
CLASS lcl_airplane IMPLEMENTATION.
  METHOD constructor.
*   Counts number of instances
    n_o_airplanes = n_o_airplanes + 1.
  ENDMETHOD.

  METHOD set_attributes.
    name      = p_name.
    planetype = p_planetype.
  ENDMETHOD.

  METHOD display_attributes.
    WRITE:/ 'Name:', name, 'Planetype:', planetype.
  ENDMETHOD.

  METHOD display_n_o_airplanes.
    WRITE: / 'No. planes:', n_o_airplanes.
  ENDMETHOD.

ENDCLASS.