Object Oriented ABAP
Object Oriented ABAP
Object Oriented ABAP
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Demo program illustrating Inheritance<br />
*&---------------------------------------------------------------------*<br />
*& Report Z_OO<strong>ABAP</strong>19 *<br />
*& *<br />
*&---------------------------------------------------------------------*<br />
*& *<br />
*& *<br />
*&---------------------------------------------------------------------*<br />
REPORT Z_OO<strong>ABAP</strong>19 .<br />
CLASS lcl_company_employees DEFINITION.<br />
PUBLIC SECTION.<br />
TYPES:<br />
BEGIN OF t_employee,<br />
no TYPE i,<br />
name TYPE string,<br />
wage TYPE i,<br />
END OF t_employee.<br />
METHODS:<br />
constructor,<br />
add_employee<br />
IMPORTING im_no TYPE i<br />
im_name TYPE string<br />
im_wage TYPE i,<br />
display_employee_list,<br />
display_no_of_employees.<br />
PRIVATE SECTION.<br />
CLASS-DATA: i_employee_list TYPE TABLE OF t_employee,<br />
no_of_employees TYPE i.<br />
ENDCLASS.<br />
*-- CLASS LCL_CompanyEmployees IMPLEMENTATION<br />
CLASS lcl_company_employees IMPLEMENTATION.<br />
METHOD constructor.<br />
no_of_employees = no_of_employees + 1.<br />
ENDMETHOD.<br />
METHOD add_employee.<br />
* Adds a new employee to the list of employees<br />
DATA: l_employee TYPE t_employee.<br />
l_employee-no = im_no.<br />
l_employee-name = im_name.<br />
l_employee-wage = im_wage.<br />
APPEND l_employee TO i_employee_list.<br />
ENDMETHOD.<br />
METHOD display_employee_list.<br />
* Displays all employees and there wage<br />
DATA: l_employee TYPE t_employee.<br />
WRITE: / 'List of Employees'.<br />
LOOP AT i_employee_list INTO l_employee.<br />
WRITE: / l_employee-no, l_employee-name, l_employee-wage.<br />
ENDLOOP.