메뉴 건너뛰기

SAP 한국 커뮤니티

[re] 질문입니다~~

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

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
74 <b>[완료]</b>엉뚱한 질문 하나... [4] 질문자 2007.02.13 2350
73 [re] 엉뚱한 질문 하나...(data 아카이빙이란?) [5] file sapjoy 2007.02.13 3301
72 저도... 처음으로 글을 작성 해보네요~!! 저 역시 .. 실습 부분의 질문입니다. [4] file 이종현 2007.02.10 2343
71 [re] 저도... 처음으로 글을 작성 해보네요~!! 저 역시 .. 실습 부분의 질문입니다. sapjoy 2007.02.10 2881
70 [re] 똑같은 에러가 뜹니다. ^^ ..다시 한번 조언 부탁 드릴께요 [5] file 이종현 2007.02.10 2624
69 실습중에 막힌게 있어서요~ [3] file 홍성종 2007.02.10 2474
68 <b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b>필드심볼을 사용하여 loop를 돌릴때.... 초초보 2007.02.10 2842
67 [re] 필드심볼을 사용하여 loop를 돌릴때.... [4] file sapjoy 2007.02.10 2856
66 질문이 있습니다. [1] 로미오 2007.02.10 2300
65 [re] 질문이 있습니다. [4] sapjoy 2007.02.10 2628
64 오늘도 열심히.. [9] 홍성종 2007.02.08 2709
63 Badis에 대해서요~ [1] 홍성종 2007.02.07 2690
62 [re] BTE [6] file sapjoy 2007.02.08 3088
61 [re] Badis에 대해서요~ [4] 구본찬 2007.02.08 2919
60 [re] Badis에 대해서요~ [1] file sapjoy 2007.02.07 3426
59 오늘도 역시;;; 홍성종 2007.02.07 2922
58 [re] SAP SHOW 예제 [1] file sapjoy 2007.02.07 2692
57 [re] SAP SHOW 예제 [6] file sapjoy 2007.02.07 2749
56 <b>[완료]</b>SQL문의 성능 향상 질문. [16] 초보보초보 2007.02.07 3339
55 이번에는 certi관련해서;; 홍성종 2007.02.06 2712