REPORT zclass_test_dp_1.

*pillars of oop

” abstraction  –> hiding the data.

” encapsulation –> variable + methods.  –> capsule ->  1 + 1 ==
” inheritance –> parent child relation.
” –> child calss will inherit the property of parent class
” polymorphism
” multiple forms –> 1 method — same name and differe param parent ==> child class but with different paremeters. –> method overriding.
” method overloading is not there –> same 2 same name and different parameters.

PARAMETERS: p_num TYPE i.
DATA: lv_tot TYPE i.

CLASS lcl_main DEFINITION.

PUBLIC SECTION.

METHODS: get_data EXPORTING iv_num TYPE i.
METHODS: set_data IMPORTING ev_num TYPE i.

PROTECTED SECTION.
PRIVATE SECTION.
DATA : lv_num1 TYPE i.
ENDCLASS.

CLASS lcl_main IMPLEMENTATION.

METHOD set_data.
lv_num1 = ev_num.
ENDMETHOD.

METHOD get_data.
iv_num = lv_num1.
ENDMETHOD.

ENDCLASS.

” inheritance
class lcl_child DEFINITION INHERITING FROM lcl_main.

PUBLIC SECTION.
METHODS: get_data REDEFINITION.
METHODS: set_data REDEFINITION.

PROTECTED SECTION.

PRIVATE SECTION.
data lv_child type i value 4.
ENDCLASS.

class lcl_child IMPLEMENTATION.

method get_Data. ” method overriding
*    ev_tot = iv_num + iv_num2.
” child will gor the child methods first then to parent method.
super->get_data( IMPORTING iv_num = iv_num ). ” way to calling the parent method
ENDMETHOD.

method set_Data.
*    ev_tot = iv_num + iv_num2.
” child will gor the child methods first then to parent method.
super->set_data( EXPORTING ev_num = ev_num  ). ” way to calling the parent method
ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
DATA(lo_obj) = NEW lcl_main( ).
DATA(lo_obj_child) = NEW lcl_child( ).

lo_obj_child->set_data(
EXPORTING
ev_num = p_num ).
lo_obj_child->get_data(
IMPORTING
iv_num = lv_tot
).

WRITE : lv_tot.