ABAP Klassen

REPORT  ZCA_FIRST_PROGRAM.
 
CLASS demo DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS main.
ENDCLASS.
 
CLASS vehicle DEFINITION.
  PUBLIC SECTION.
  DATA speed TYPE i VALUE 5.
ENDCLASS.
 
 
CLASS demo IMPLEMENTATION.
  METHOD main.
    DATA vehicle1 TYPE REF TO vehicle.
    DATA: zcatest_wa TYPE  zcatest,
          zcatest_tab TYPE HASHED TABLE OF zcatest WITH UNIQUE KEY id.
    " Tempr�¤rers Objekt erstellen
    zcatest_wa-id = 0.
    zcatest_wa-bezeichnung = 'foo'.
    " und in tempor�¤re Tabelle einf�¼gen
    INSERT zcatest_wa INTO TABLE zcatest_tab.
 
    "In transparente Tabelle einf�¼gen
    INSERT zcatest FROM TABLE zcatest_tab.
    MESSAGE zcatest_wa-bezeichnung  TYPE 'I'.
  ENDMETHOD.
ENDCLASS.
 
START-OF-SELECTION.
  demo=>main( ).
 
 
------
 
CLASS cylinder DEFINITION.
PUBLIC SECTION.
 METHODS: constructur IMPORTING i_radius TYPE numeric 
                                i_heigt TYPE numeric.
          get_area    RETURNING value(r_area) TYPE f.
 
START-OF-SELECATION.
 DATA oref TYPE REF TO cylinder.
 CREATE OBJECT oref EXPORTING i_radius=4 i_heigt=2.
 area = oref -> get_area( ).