REPORT Z17_012 .
CLASS lcl_employee DEFINITION.
PUBLIC SECTION.
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: display_no_of_employees.
PROTECTED SECTION.
CLASS-DATA: g_no_of_employees TYPE i.
PRIVATE SECTION.
DATA: g_employee TYPE t_employee.
ENDCLASS.
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.
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 = 'Hong g d'.
CREATE OBJECT g_employee2
EXPORTING im_employee_no = 2
im_employee_name = 'Lim g j'.
CALL METHOD g_employee1->display_employee.
CALL METHOD g_employee2->display_employee.
CALL METHOD g_employee2->display_no_of_employees.
CLASS lcl_employee DEFINITION.
PUBLIC SECTION.
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: display_no_of_employees.
PROTECTED SECTION.
CLASS-DATA: g_no_of_employees TYPE i.
PRIVATE SECTION.
DATA: g_employee TYPE t_employee.
ENDCLASS.
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.
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 = 'Hong g d'.
CREATE OBJECT g_employee2
EXPORTING im_employee_no = 2
im_employee_name = 'Lim g j'.
CALL METHOD g_employee1->display_employee.
CALL METHOD g_employee2->display_employee.
CALL METHOD g_employee2->display_no_of_employees.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
110 | REPORT Z17_022 | sapjoy | 2007.02.21 | 2315 |
109 | REPORT Z17_021 . | sapjoy | 2007.02.21 | 2386 |
108 | REPORT Z17_019 [1] | sapjoy | 2007.02.14 | 2748 |
107 | REPORT Z17_017 . | sapjoy | 2007.02.14 | 2181 |
106 | REPORT Z17_016 . | sapjoy | 2007.02.13 | 2162 |
105 | REPORT Z17_015 | sapjoy | 2007.02.13 | 2280 |
104 | REPORT Z17_014. [1] | sapjoy | 2007.02.13 | 2503 |
» | REPORT Z17_012 | sapjoy | 2007.02.12 | 2304 |
102 | INCLUDE Z17_011_CLASS | sapjoy | 2007.02.12 | 2489 |
101 | REPORT Z17_011 | sapjoy | 2007.02.12 | 2287 |
100 | REPORT Z017_007 [3] | sapjoy | 2007.02.11 | 2353 |
99 | REPORT Z17_006 | sapjoy | 2007.02.11 | 2208 |
98 | REPORT Z17_005 | sapjoy | 2007.02.11 | 2174 |
97 | REPORT Z17_004. | sapjoy | 2007.02.11 | 2508 |
96 | REPORT Z17_003 | sapjoy | 2007.02.08 | 2347 |
95 | REPORT Z17_002 | sapjoy | 2007.02.07 | 2138 |
94 | REPORT Z17_001. | sapjoy | 2007.02.06 | 2147 |
93 | REPORT Z15_039 | sapjoy | 2007.02.05 | 2315 |
92 | REPORT Z15_038 | sapjoy | 2007.02.05 | 2175 |
91 | REPORT Z15_037. | sapjoy | 2007.02.05 | 2472 |