‎2008 Jan 04 10:25 AM
Please guide me how to write a ABAP Object program and send me a sample program with public,private and protected variables in it.
IF u had any documents please send it.
Regards,
Suriya
‎2008 Jan 04 10:58 AM
hi,
&----
*& Report Z_OOABAP18 *
*& *
&----
*& *
*& *
&----
PUBLIC SECTION.
*----
The public section is accesible from outside
*----
TYPES:
BEGIN OF t_employee,
no TYPE i,
name TYPE string,
END OF t_employee.
METHODS:
constructor
IMPORTING im_employee_no TYPE i
im_employee_name TYPE string,
display_employee.
Class methods are global for all instances
CLASS-METHODS: display_no_of_employees.
PROTECTED SECTION.
*----
The protecetd section is accesible from the class and its subclasses
*----
Class data are global for all instances
CLASS-DATA: g_no_of_employees TYPE i.
PRIVATE SECTION.
*----
The private section is only accesible from within the classs
*----
DATA: g_employee TYPE t_employee.
ENDCLASS.
*--- LCL Employee - Implementation
CLASS lcl_employee IMPLEMENTATION.
METHOD constructor.
g_employee-no = im_employee_no.
g_employee-name = im_employee_name.
g_no_of_employees = g_no_of_employees + 1.
ENDMETHOD.
METHOD display_employee.
WRITE:/ 'Employee', g_employee-no, g_employee-name.
ENDMETHOD.
METHOD display_no_of_employees.
WRITE: / 'Number of employees is:', g_no_of_employees.
ENDMETHOD.
ENDCLASS.
************************************************************************
R E P O R T
*********************************************************************
DATA: g_employee1 TYPE REF TO lcl_employee,
g_employee2 TYPE REF TO lcl_employee.
START-OF-SELECTION.
CREATE OBJECT g_employee1
EXPORTING im_employee_no = 1
im_employee_name = 'Vikram.C'.
CREATE OBJECT g_employee2
EXPORTING im_employee_no = 2
im_employee_name = 'Raghava.V'.
CALL METHOD g_employee1->display_employee.
CALL METHOD g_employee2->display_employee.
Hope this is helpful, Do reward.
‎2008 Jan 04 11:02 AM
hi,
May be this link will be f some help to you.
http://www.saptechnical.com/Tutorials/ABAP/OOP/Example1.htm
Also visit ww.saptechnical.com for more abap oops stuff.
Hope this is helpful, Do reward.
‎2008 Jan 04 11:45 AM
Hi Suriya,
Please give me your email address. I have a PDF material and can send it to you.