메뉴 건너뛰기

SAP 한국 커뮤니티

[re] 질문입니다~~

구본찬 2007.02.06 12:24 조회 수 : 2448 추천:138

아무래도 코드를 보시면서 이해하시는게 좋을 거 같네요
간단한 예제프로그램 보시고 이해하세요.
개념은 답변하신 분이 잘 말씀해주셔서 더 이상 말씀드릴 게 없는거 같구요.
궁금하신 사항은 제가 원문에다가 답글 달아 드렸습니다.
참고하세요.

*&---------------------------------------------------------------------*
*& Report  ZLER9996                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZLER9996                                                    .

* Class Declarations

CLASS vehicle DEFINITION INHERITING FROM object.
  PUBLIC SECTION.
    METHODS: accelerate,
             write_status.
  PROTECTED SECTION.
    DATA speed TYPE i.
ENDCLASS.

CLASS plane DEFINITION INHERITING FROM vehicle.
  PUBLIC SECTION.
    METHODS: rise,
             write_status REDEFINITION.
  PROTECTED SECTION.
    DATA altitude TYPE i.
ENDCLASS.

CLASS ship DEFINITION INHERITING FROM vehicle.
  PUBLIC SECTION.
    METHODS write_status REDEFINITION.
ENDCLASS.

* Class Implementations

CLASS vehicle IMPLEMENTATION.
  METHOD accelerate.
    speed = speed + 1.
  ENDMETHOD.
  METHOD write_status.
    WRITE: / 'Speed:', speed.
  ENDMETHOD.
ENDCLASS.

CLASS plane IMPLEMENTATION.
  METHOD rise.
    altitude = altitude + 1.
  ENDMETHOD.
  METHOD write_status.
    WRITE / 'Plane:'.
    CALL METHOD super->write_status.
    WRITE: / 'Altitude:', altitude.
  ENDMETHOD.
ENDCLASS.

CLASS ship IMPLEMENTATION.
  METHOD write_status.
    WRITE: / 'Ship speed:', speed.
  ENDMETHOD.
ENDCLASS.

* Global Data

DATA: plane_ref TYPE REF TO plane,
      ship_ref TYPE REF TO ship.

* Classical Processing Blocks

START-OF-SELECTION.

  CREATE OBJECT: plane_ref,
                 ship_ref.

  CALL METHOD: plane_ref->accelerate,
               plane_ref->rise,
               plane_ref->write_status,
               ship_ref->accelerate,
               ship_ref->write_status.

결과 값은 아시는대로
Plane:
Speed:          1
Altitude:          1
Ship speed:          1
형태로 출력됩니다.

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
6467 T-CODE SMW0 에 대해서 아시는분 없나요? [2] 초보보초보 2007.01.31 3460
6466 질문이 있습니다. 프로그램 BC_ALVEXCEL처럼 SAP에 EXCEL을 연동시켜 데이터를 수정하고 싶은데 방법이.. [1] 초보보초보 2007.01.31 2989
6465 [re] T-CODE SMW0 에 대해서 아시는분 없나요? [7] file sapjoy 2007.01.31 3815
6464 'MULTIRANGE_CONVERT_ALPHA' Function 에관한 질문입니다....^^;; 김영욱 2007.02.05 2722
6463 [re] 'MULTIRANGE_CONVERT_ALPHA' Function 에관한 질문입니다....^^;; [3] file sapjoy 2007.02.05 2693
6462 운영자님~abap oop에대해서 질문입니다~ 홍성종 2007.02.05 3029
6461 [re] 운영자님~abap oop에대해서 질문입니다~ [1] file sapjoy 2007.02.05 2905
6460 운영자님~ 홍성종 2007.02.05 2925
6459 <b>[완료]</b>일본 SAP [3] 아밥 2007.02.05 3006
6458 <b>[완료]</b>[re] 운영자님~ [5] sapjoy 2007.02.05 2734
6457 <b>[완료]</b>질문입니다~~ [2] 홍성종 2007.02.05 2668
6456 [re] 질문입니다~~ [4] file sapjoy 2007.02.05 2756
» [re] 질문입니다~~ [5] 구본찬 2007.02.06 2448
6454 이번에는 certi관련해서;; 홍성종 2007.02.06 2702
6453 [re] 이번에는 certi관련해서;; [2] file sapjoy 2007.02.06 2747
6452 <b>[완료]</b>SQL문의 성능 향상 질문. [16] 초보보초보 2007.02.07 3305
6451 오늘도 역시;;; 홍성종 2007.02.07 2910
6450 [re] SAP SHOW 예제 [1] file sapjoy 2007.02.07 2673
6449 [re] SAP SHOW 예제 [6] file sapjoy 2007.02.07 2714
6448 Badis에 대해서요~ [1] 홍성종 2007.02.07 2676