메뉴 건너뛰기

SAP 한국 커뮤니티

[re] 질문입니다~~

구본찬 2007.02.06 21:24 조회 수 : 2489 추천: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
형태로 출력됩니다.

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
107 [re] SAP OSS 메세지 링크 좀 가르쳐주세요. file sapjoy 2007.03.07 3288
106 Global Type / Local Type 에 관한 질문입니다. [1] bd 2007.03.06 2615
105 고객 위탁 재고 Table에 대한 질문 [1] 소주와 막걸리 2007.03.05 4056
104 [re] 고객 위탁 재고 Table에 대한 질문 [2] file sapjoy 2007.03.05 3070
103 <b>[완료]</b>tables와 select-options 두번째 질문 입니다. [2] 김동년 2007.03.04 2590
102 Type과 Data선언에 관한것입니다; [2] 홍성종 2007.03.04 2787
101 <b>[완료]</b>이제 abpa 시작한 초보 인대요.간단한 질문좀.. [3] 김동년 2007.03.03 2663
100 [re] 이제 abpa 시작한 초보 인대요.간단한 질문좀.. file sapjoy 2007.03.03 2572
99 Data type부분입니다 [4] file 홍성종 2007.03.03 3140
98 <b>[완료]</b>넘버 range 설정시 버퍼에 대하여.. [2] 고수이고싶다. 2007.03.03 3875
97 다시 질문들어갑니다;; [13] file 홍성종 2007.03.01 2522
96 혹시 SAP ECC 6.0에 대한 자료 가지고 계신분 있으세요???? [1] UKS 2007.03.01 2943
95 [re] 혹시 SAP ECC 6.0에 대한 자료 가지고 계신분 있으세요???? [4] file sapjoy 2007.03.02 2857
94 [re] 혹시 SAP ECC 6.0에 대한 자료 가지고 계신분 있으세요???? [2] file 고수이고싶다. 2007.03.01 3150
93 스크린에서 어느 필드가 변경되었는지 알수 있나요? [4] 고수이고싶다. 2007.03.01 3311
92 <b>[완료]</b>LOOP AT 와 BW에 대해.. [1] 아밥 2007.02.28 2749
91 [re] LOOP AT 와 BW에 대해.. [1] file sapjoy 2007.03.01 2668
90 몇가지 모르는것 질문을 드립니다. [3] 로미오 2007.02.27 2774
89 6.form ~ using~에 대한 답변 file sapjoy 2007.02.27 3142
88 5. controls: tc_input type tableview using screen 100 sapjoy 2007.02.27 3039