Demo program illustrating Simple class and method concept in OOP ABAP

*&---------------------------------------------------------------------*
*& Report  ZSAND_OOPS1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zsand_oops1.

*----------------------------------------------------------------------*
*       CLASS cl_oops DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_oops DEFINITION.

  PUBLIC SECTION.

    TYPES: BEGIN OF t_emp,
           no TYPE i,
           name TYPE string,
    END OF t_emp.

    METHODS:
             constructor
             IMPORTING im_emp_no TYPE i
                       im_emp_name TYPE string,

                       display_emp.

    CLASS-METHODS: display_no_of_empl.

  PROTECTED SECTION.

    CLASS-DATA: g_no_of_empl TYPE i.

  PRIVATE SECTION.

    DATA: g_emp TYPE t_emp.

ENDCLASS.                    "cl_oops DEFINITION

*----------------------------------------------------------------------*
*       CLASS cl_oops IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_oops IMPLEMENTATION.

  METHOD constructor.
    g_emp-no = im_emp_no.
    g_emp-name = im_emp_name.
    g_no_of_empl = g_no_of_empl + 1.

  ENDMETHOD.                    "constructor

  METHOD display_emp.

    WRITE:/ 'Employee' , g_emp-no, g_emp-name.

  ENDMETHOD.                    "display_emp

  METHOD display_no_of_empl.
    WRITE:/ 'No of Employee is: ' , g_no_of_empl.

  ENDMETHOD.                    "display_no_of_empl


ENDCLASS.                    "cl_oops IMPLEMENTATION

DATA: g_emp1 TYPE REF TO cl_oops,
      g_emp2 TYPE REF TO cl_oops,
      g_emp3 TYPE REF TO cl_oops.

START-OF-SELECTION.

  CREATE OBJECT g_emp1
    EXPORTING
      im_emp_no   = 1
      im_emp_name = 'Sandhya'.

  CREATE OBJECT g_emp2
    EXPORTING
      im_emp_no   = 2
      im_emp_name = 'Varsha'.

  CREATE OBJECT g_emp3
    EXPORTING
      im_emp_no   = 3
      im_emp_name = 'Navda'.



  

  CALL METHOD g_emp1->display_emp.
  CALL METHOD g_emp2->display_emp.
  CALL METHOD g_emp3->display_emp.

  CALL METHOD g_emp2->display_no_of_empl.

OUTPUT