Local class with Attributes and Methods, ME Keyword (Class 3)

*&---------------------------------------------------------------------*
*& Report  ZOOABAP_CL3
*& Test : Report to show execution and use of ME variable
*& Local class with Attributes and Methods, ME Keyword
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zooabap_cl3.
CLASS lcl_emp DEFINITION.
  PUBLIC SECTION .
    METHODS : set,
      display.
  PROTECTED SECTION.
    DATA : empno   TYPE i,
           empname TYPE char40,
           design  TYPE char10.


ENDCLASS.

CLASS lcl_emp IMPLEMENTATION.
  METHOD display.
    WRITE : / empno,empname,design.
  ENDMETHOD.

  METHOD set .
    empno = '127'.
    empname = 'SOURAV'.
    design = 'CEO'.
  ENDMETHOD.

ENDCLASS.

START-OF-SELECTION.
  DATA : ob1 TYPE REF TO lcl_emp.
  CREATE OBJECT ob1.
  ob1->display( ).
  ob1->set( ).
  ob1->display( ).

  ULINE.
  DATA ob2 TYPE REF TO lcl_emp.
  CREATE OBJECT ob2.
  WRITE :/ 'Values of object ob2...'.
  CALL METHOD ob2->display.