Include ZZ_##_OBJECTS_INCLUDE

CLASS lcl_airplane DEFINITION.
 
  PUBLIC SECTION.
    METHODS: attribute_setzen IMPORTING
               im_name TYPE string
               im_planetype TYPE string,
             attribute_anzeigen.
 
  PRIVATE SECTION.
    DATA: name TYPE string,
          planetype TYPE string.
 
ENDCLASS.
 
CLASS lcl_airplane IMPLEMENTATION.
 
  METHOD attribute_setzen.
    name = im_name.
    planetype = im_planetype.
  ENDMETHOD.
 
  METHOD attribute_anzeigen.
    WRITE: / 'Name des Flugzeugs: ', name,
           / 'Typ des Flugzeugs: ', planetype.
  ENDMETHOD.

 
ENDCLASS.