Created
January 29, 2012 20:58
-
-
Save furlan/1700607 to your computer and use it in GitHub Desktop.
ZP_HELLO_OO_4
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*&---------------------------------------------------------------------* | |
*& Report ZP_HELLO_OO_4 | |
*& | |
*&---------------------------------------------------------------------* | |
*& | |
*& | |
*&---------------------------------------------------------------------* | |
REPORT zp_hello_oo_4 NO STANDARD PAGE HEADING. | |
*----------------------------------------------------------------------* | |
* CLASS lcl_hello DEFINITION | |
*----------------------------------------------------------------------* | |
* | |
*----------------------------------------------------------------------* | |
CLASS lcl_hello DEFINITION. | |
PUBLIC SECTION. | |
METHODS: constructor | |
IMPORTING | |
ic_name TYPE char30. | |
METHODS: set | |
IMPORTING | |
i_name TYPE char30, | |
get | |
RETURNING value(r_name) TYPE char30. | |
METHODS: display_message. | |
PRIVATE SECTION. | |
DATA: name TYPE char30. | |
ENDCLASS. "lcl_hello DEFINITION | |
*----------------------------------------------------------------------* | |
* CLASS lcl_hello IMPLEMENTATION | |
*----------------------------------------------------------------------* | |
* | |
*----------------------------------------------------------------------* | |
CLASS lcl_hello IMPLEMENTATION. | |
METHOD constructor. | |
me->set( ic_name ). | |
ENDMETHOD. "constructor | |
METHOD set. | |
me->name = i_name. | |
ENDMETHOD. "set | |
METHOD get. | |
r_name = me->name. | |
ENDMETHOD. "get | |
METHOD display_message. | |
WRITE: / 'Hello: ', name. | |
ENDMETHOD. "display_message | |
ENDCLASS. "lcl_hello IMPLEMENTATION | |
DATA: g_r_hello TYPE REF TO lcl_hello, | |
g_v_hello TYPE char30. | |
PARAMETERS: p_name TYPE char30 DEFAULT 'World OO!!'. | |
START-OF-SELECTION. | |
CREATE OBJECT g_r_hello | |
EXPORTING | |
ic_name = p_name. | |
g_v_hello = g_r_hello->get( ). | |
IF g_v_hello = 'PROCEDURAL!!'. | |
WRITE: / 'Hey, avoid first drink!'. | |
g_r_hello->set( 'I would say... I love OO!' ). | |
ENDIF. | |
g_r_hello->display_message( ). |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment