Quantcast
Channel: SCN: Message List - ABAP Objects
Viewing all articles
Browse latest Browse all 159

Re: downcasting

$
0
0

Hi Adam,

 

pls. can u check  if this coding is correct.

 

CLASS lcl_vehicle DEFINITION.

PUBLIC SECTION.

METHODS: move,

transport_person IMPORTING io_vehicle TYPE REF TO lcl_vehicle.

ENDCLASS.

 

CLASS lcl_car DEFINITION INHERITING FROM lcl_vehicle.

PUBLIC SECTION.

METHODS: move Redefinition,

transport_person Redefinition .

ENDCLASS.

 

CLASS lcl_motor DEFINITION INHERITING FROM lcl_vehicle.

PUBLIC SECTION.

METHODS: move Redefinition,

transport_person Redefinition .

ENDCLASS.

 

CLASS lcl_vehicle IMPLEMENTATION.

METHOD move.

WRITE: / 'Methode der vehicle'.

ENDMETHOD.

METHOD transport_person.

WRITE: / 'transport_person der Vehicleklasse'.

ENDMETHOD.

ENDCLASS.

 

CLASS lcl_car IMPLEMENTATION.

METHOD move.

WRITE: / 'Method of car'.

ENDMETHOD.

METHOD transport_person.

WRITE: / 'transport_person der Carklasse'.

ENDMETHOD.

ENDCLASS.

 

CLASS lcl_motor IMPLEMENTATION.

METHOD move.

WRITE: / 'Method of motor'.

ENDMETHOD.

METHOD transport_person.

WRITE: / 'transport_person der Motorklasse'.

ENDMETHOD.

ENDCLASS.

 

START-OF-SELECTION.

 

DATA lo_vehicle TYPE REF TO lcl_vehicle.

DATA lo_car TYPE REF TO lcl_car.

DATA lo_motor TYPE REF TO lcl_motor.

 

CREATE OBJECT lo_vehicle.

CREATE OBJECT lo_car.

 

CALL METHOD lo_car->transport_person

EXPORTING

 

io_vehicle = lo_vehicle.

 

Regards

Alex


Viewing all articles
Browse latest Browse all 159

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>