ZP_HELLO_OO_4

ZP_HELLO_OO_4

*&---------------------------------------------------------------------*
*& 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( ).