
REPORT ztest.
CLASS lcl_object DEFINITION FINAL CREATE PUBLIC.
PUBLIC SECTION.
DATA mv_color TYPE string.
METHODS constructor.
ENDCLASS.
CLASS lcl_object IMPLEMENTATION.
METHOD constructor.
ENDMETHOD.
ENDCLASS.
CLASS lcl_example DEFINITION FINAL CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor.
METHODS pass_by_reference
IMPORTING
io_object TYPE REF TO lcl_object.
METHODS pass_by_value
IMPORTING
VALUE(io_object) TYPE REF TO lcl_object.
ENDCLASS.
CLASS lcl_example IMPLEMENTATION.
METHOD constructor.
ENDMETHOD.
METHOD pass_by_reference.
io_object->mv_color = 'green'.
ENDMETHOD.
METHOD pass_by_value.
io_object->mv_color = 'blue'.
CLEAR io_object.
DATA(lo_object) = NEW lcl_object( ).
lo_object->mv_color = 'yellow'.
io_object = lo_object.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(lo_example) = NEW lcl_example( ).
DATA(lo_object) = NEW lcl_object( ).
lo_object->mv_color = 'red'.
WRITE: / lo_object->mv_color.
lo_example->pass_by_reference( lo_object ).
WRITE: / lo_object->mv_color.
lo_example->pass_by_value( lo_object ).
WRITE: / lo_object->mv_color.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
2 | |
2 | |
2 | |
2 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 |