REPORT  zr_class_01.
*----------------------------------------------------------------------*
*       CLASS lcl_car DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_car DEFINITION.
  PUBLIC SECTION.
    DATA: model TYPE string,
          make TYPE string.
    class-data: count type i.

ENDCLASS.                    "lcl_car DEFINITION

START-OF-SELECTION.
  DATA r_car TYPE REF TO lcl_car.

  CREATE OBJECT r_car.

  r_car->model = 'SM7'.
  r_car->make = '2009'.
* r_car->count=1.
  lcl_car=>count = 1.

  WRITE:/ r_car->model, r_car->make, lcl_car=>count. "r_car->count.
  NEW-LINE.
  WRITE 'Class Test'.