ABAP面向对象中方法调用

静态方法直接输出：lcl_airplane=>display_n_o_airplanes( ).
静态功能性返回参数输出：count = lcl_airplane=>get_n_o_airplanes( ).

1. REPORT yleon_001.
   
2. 
   
3. INCLUDE yleon_001_airs_a.
   
4. 
   
5. DATA: r_plane    TYPE REF TO lcl_airplane,
   
6.       plane_list TYPE TABLE OF REF TO lcl_airplane,
   
7.       count      TYPE i.
   
8. 
   
9. START-OF-SELECTION.
   
10. 
    
11.   lcl_airplane=>display_n_o_airplanes( ).
    
12.   CREATE OBJECT r_plane.
    
13.   APPEND r_plane TO plane_list.
    
14.   r_plane->set_attributes( im_name = 'LH Berlin'
    
15.   im_planetype = 'A321' ).
    
16.   CREATE OBJECT r_plane.
    
17.   APPEND r_plane TO plane_list.
    
18.   r_plane->set_attributes( im_name = 'AA New York'
    
19.   im_planetype = '747-400' ).
    
20.   CREATE OBJECT r_plane.
    
21.   APPEND r_plane TO plane_list.
    
22.   r_plane->set_attributes( im_name = 'US Hercules'
    
23.   im_planetype = '747-500' ).
    
24.   LOOP AT plane_list INTO r_plane.
    
25.     r_plane->display_attributes( ).
    
26.   ENDLOOP.
    
27. * long syntax for functional call:
    
28. * CALL METHOD lcl_airplane=>get_n_o_airplanes
    
29. * RECEIVING
    
30. * re_count = count.
    
31. * a little bit shorter:
    
32. * lcl_airplane=>get_n_o_airplanes( RECEIVING re_count = count ).
    
33. * the shortest syntax for functional call:
    
34.   count = lcl_airplane=>get_n_o_airplanes( ).
    
35.   WRITE: / 'Total number of planes', count.
    
36. 
    
37.   lcl_airplane=>display_n_o_airplanes( ).

复制代码

1. *&---------------------------------------------------------------------*
   
2. *&  包含                YLEON_001_AIRS_A
   
3. *&---------------------------------------------------------------------*
   
4. CLASS lcl_airplane DEFINITION.
   
5.   PUBLIC SECTION.
   
6.     CONSTANTS: pos_1 TYPE i VALUE 30.
   
7.     METHODS: set_attributes IMPORTING
   
8.                               im_name      TYPE string
   
9.                               im_planetype TYPE saplane-planetype,
   
10.       display_attributes.
    
11.     CLASS-METHODS: display_n_o_airplanes,
    
12.       get_n_o_airplanes RETURNING VALUE(re_count) TYPE i.
    
13. 
    
14.   PRIVATE SECTION.
    
15.     DATA: name      TYPE string,
    
16.           planetype TYPE saplane-planetype.
    
17.     CLASS-DATA: n_o_airplanes TYPE i.
    
18. 
    
19. ENDCLASS. "lcl_airplane DEFINITION
    
20. 
    
21. CLASS lcl_airplane IMPLEMENTATION.
    
22.   METHOD set_attributes.
    
23.     name = im_name.
    
24.     planetype = im_planetype.
    
25. * doesn't make sense so much -
    
26. * only in order to get an effect
    
27. * after calling display_n_o_airplanes:
    
28.     n_o_airplanes = n_o_airplanes + 1.
    
29.   ENDMETHOD. "set_attributes
    
30. 
    
31.   METHOD display_attributes.
    
32.     WRITE: / icon_ws_plane AS ICON,
    
33.     / 'Name of airplane:'(001), AT pos_1 name,
    
34.     / 'Airplane type'(002), AT pos_1 planetype.
    
35.   ENDMETHOD. "display_attributes
    
36. 
    
37.   METHOD display_n_o_airplanes.
    
38.     WRITE: /, / 'Total number of planes'(ca1),
    
39.     AT pos_1 n_o_airplanes LEFT-JUSTIFIED, /.
    
40.   ENDMETHOD. "display_n_o_airplanes
    
41. 
    
42.   METHOD get_n_o_airplanes.
    
43.     re_count = n_o_airplanes.
    
44.   ENDMETHOD. "get_n_o_airplanes
    
45. ENDCLASS. "lcl_airplane IMPLEMENTATION

复制代码

测试结果：