设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[面向对象] ABAP面向对象中的集合与一般调用

Twilight发表于 2016-04-20 09:51Twilight 最后回复于 2016-04-20 09:51 [复制链接] 4020 0

  1. REPORT yleon_002.

  3. TYPE-POOLS icon.

  5. INCLUDE yleon_002_a.
  6. INCLUDE yleon_002_b.

  8. DATA: r_plane     TYPE REF TO lcl_airplane,
  9.       r_cargo     TYPE REF TO lcl_cargo_plane,
  10.       r_passenger TYPE REF TO lcl_passenger_plane,
  11.       plane_list  TYPE TABLE OF REF TO lcl_airplane,
  12.       r_carrier   TYPE REF TO lcl_carrier.

  14. START-OF-SELECTION.

  16. ***** Create Carrier ********************************************
  17. CREATE OBJECT r_carrier EXPORTING im_name = 'Smile&Fly Travel'.
  18. ***** Passenger Plane ********************************************
  19. CREATE OBJECT r_passenger EXPORTING
  20. im_name = 'LH BERLIN'
  21. im_planetype = '747-400'
  22. im_seats = 345.
  23. ***** cargo Plane ************************************************
  24. CREATE OBJECT r_cargo EXPORTING
  25. im_name = 'US HErcules'
  26. im_planetype = '747-500'
  27. im_cargo = 533.
  28. ***** insert planes into itab if client ***************************
  29. r_carrier->add_airplane( r_passenger ).
  30. r_carrier->add_airplane( r_cargo ).
  31. ***** show all airplanes inside carrier ***************************
  32. r_carrier->display_attributes( ).
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  包含                YLEON_002_A
  3. *&---------------------------------------------------------------------*
  4. CLASS lcl_airplane DEFINITION.
  5.   PUBLIC SECTION.
  6.     CONSTANTS: pos_1 TYPE i VALUE 30.
  7.     METHODS: constructor IMPORTING im_name      TYPE string
  8.                                    im_planetype TYPE saplane-planetype,
  9.       display_attributes.
  10.     CLASS-METHODS: display_n_o_airplanes.

  12.   PRIVATE SECTION.
  13.     METHODS: get_technical_attributes
  14.       IMPORTING im_type    TYPE saplane-planetype
  15.       EXPORTING ex_weight  TYPE s_plan_wei
  16.                 ex_tankcap TYPE s_capacity.
  17.     DATA: name      TYPE string,
  18.           planetype TYPE saplane-planetype.
  19.     CLASS-DATA: n_o_airplanes TYPE i.
  20. ENDCLASS. "lcl_airplane DEFINITION

  22. CLASS lcl_airplane IMPLEMENTATION.
  23.   METHOD constructor.
  24.     name = im_name.
  25.     planetype = im_planetype.
  26.     n_o_airplanes = n_o_airplanes + 1.
  27.   ENDMETHOD. "constructor
  28.   METHOD display_attributes.
  29.     DATA: weight TYPE saplane-weight,
  30.           cap    TYPE saplane-tankcap.
  31.     WRITE: / icon_ws_plane AS ICON,
  32.     / 'Name of airplane'(001), AT pos_1 name,
  33.     / 'Airplane type: '(002), AT pos_1 planetype.
  34.     get_technical_attributes( EXPORTING im_type = planetype
  35.                               IMPORTING ex_weight = weight
  36.                               ex_tankcap = cap ).
  37.     WRITE: / 'Weight:'(003), weight,
  38.     'Tank capacity:'(004), cap.
  39.   ENDMETHOD. "display_attributes
  40.   METHOD display_n_o_airplanes.
  41.     WRITE: /, / 'Number of airplanes: '(ca1),
  42.     AT pos_1 n_o_airplanes LEFT-JUSTIFIED, /.
  43.   ENDMETHOD. "display_n_o_airplanes
  44.   METHOD get_technical_attributes.
  45.     SELECT SINGLE weight tankcap FROM saplane
  46.     INTO (ex_weight, ex_tankcap)
  47.     WHERE planetype = im_type.
  48.     IF sy-subrc <> 0.
  49.       ex_weight = 100000.
  50.       ex_tankcap = 10000.
  51.     ENDIF.
  52.   ENDMETHOD. "get_technical_attributes
  53. ENDCLASS. "lcl_airplane IMPLEMENTATION

  55. CLASS lcl_cargo_plane DEFINITION INHERITING FROM lcl_airplane.
  56.   PUBLIC SECTION.
  57.     METHODS: constructor IMPORTING im_name      TYPE string
  58.                                    im_planetype TYPE saplane-planetype
  59.                                    im_cargo     TYPE scplane-cargomax.
  60.     METHODS: display_attributes REDEFINITION.
  61.     METHODS: get_cargo RETURNING VALUE(re_cargo) TYPE scplane-cargomax.
  62.   PRIVATE SECTION.
  63.     DATA: max_cargo TYPE scplane-cargomax.
  64. ENDCLASS. "lcl_cargo_plane DEFINITION
  65. CLASS lcl_cargo_plane IMPLEMENTATION.
  66.   METHOD constructor.
  67.     CALL METHOD super->constructor( im_name = im_name im_planetype = im_planetype ).
  68.     max_cargo = im_cargo.
  69.   ENDMETHOD. "constructor
  70.   METHOD display_attributes.
  71.     super->display_attributes( ).
  72.     WRITE: / 'Max Cargo = ', max_cargo.
  73.     ULINE.
  74.   ENDMETHOD. "display_attributes
  75.   METHOD get_cargo.
  76.     re_cargo = max_cargo.
  77.   ENDMETHOD. "get_cargo
  78. ENDCLASS. "lcl_cargo_plane IMPLEMENTATION
  79. CLASS lcl_passenger_plane DEFINITION INHERITING FROM lcl_airplane..
  80.   PUBLIC SECTION.
  81.     METHODS: constructor IMPORTING im_name      TYPE string
  82.                                    im_planetype TYPE saplane-planetype
  83.                                    im_seats     TYPE sflight-seatsmax.
  84.     METHODS: display_attributes REDEFINITION.
  85.   PRIVATE SECTION.
  86.     DATA: max_seats TYPE sflight-seatsmax.
  87. ENDCLASS. "lcl_passenger_plane DEFINITION

  89. CLASS lcl_passenger_plane IMPLEMENTATION.
  90.   METHOD constructor.
  91.     CALL METHOD super->constructor(
  92.       EXPORTING
  93.         im_name      = im_name
  94.         im_planetype = im_planetype ).
  95.     max_seats = im_seats.
  96.   ENDMETHOD. "constructor
  97.   METHOD display_attributes.
  98.     super->display_attributes( ).
  99.     WRITE: / 'Max Seats = ', max_seats.
  100.     ULINE.
  101.   ENDMETHOD. "display_attributes
  102. ENDCLASS. "lcl_passenger_plane IMPLEMENTATION
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  包含                YLEON_002_B
  3. *&---------------------------------------------------------------------*
  4. CLASS lcl_carrier DEFINITION.
  5.   PUBLIC SECTION.
  6.     METHODS: constructor IMPORTING im_name TYPE string,
  7.       get_name RETURNING VALUE(ex_name) TYPE string,
  8.       add_airplane IMPORTING im_plane TYPE REF TO lcl_airplane,
  9.       display_airplanes,
  10.       display_attributes,
  11.       get_highest_cargo RETURNING VALUE(re_cargo) TYPE s_plan_car.
  12.   PRIVATE SECTION.
  13.     DATA: name          TYPE string,
  14.           airplane_list TYPE TABLE OF REF TO lcl_airplane.
  15. ENDCLASS. "lcl_carrier DEFINITION
  16. CLASS lcl_carrier IMPLEMENTATION.
  17.   METHOD add_airplane.
  18.     APPEND im_plane TO airplane_list.
  19.   ENDMETHOD. "add_airplane
  20.   METHOD display_attributes.
  21.     DATA: highest_cargo TYPE s_plan_car.
  22.     WRITE: icon_flight AS ICON, name . ULINE. ULINE.
  23.     display_airplanes( ).
  24.     highest_cargo = me->get_highest_cargo( ).
  25.     WRITE: / ' Highest Cargo = ', highest_cargo.
  26.   ENDMETHOD. "display_attributes
  27.   METHOD display_airplanes.
  28.     DATA: r_plane TYPE REF TO lcl_airplane.
  29.     LOOP AT airplane_list INTO r_plane.
  30.       r_plane->display_attributes( ).
  31.     ENDLOOP.
  32.   ENDMETHOD. "display_airplanes
  33.   METHOD constructor.
  34.     name = im_name.
  35.   ENDMETHOD. "constructor
  36.   METHOD get_name.
  37.     ex_name = name.
  38.   ENDMETHOD. "get_name
  39.   METHOD get_highest_cargo.
  40.     DATA: r_cargo TYPE REF TO lcl_cargo_plane.
  41.     DATA: r_plane TYPE REF TO lcl_airplane.
  42.     DATA: cargo TYPE s_plan_car.
  43.     DATA: r_exc TYPE REF TO cx_root.
  44.     LOOP AT airplane_list INTO r_plane.
  45.       TRY.
  46.           "**** her comes the optimistic coding *******
  47.           r_cargo ?= r_plane.
  48.           cargo = r_cargo->get_cargo( ).
  49.           IF re_cargo < cargo.
  50.             re_cargo = cargo.
  51.           ENDIF.
  52.         CATCH cx_sy_move_cast_error INTO r_exc. "*** no cargoplane
  53.       ENDTRY.
  54.     ENDLOOP.
  55.   ENDMETHOD.
  56. ENDCLASS. "lcl_carrier IMPLEMENTATION
复制代码

执行结果：
集合与一般调用.jpg
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 847 主题
  2. 125 回帖
  3. 11270 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-12-23 07:46 , Processed in 0.050726 second(s), 6 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表