메뉴 건너뛰기

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
형태로 출력됩니다.

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
87 4. include structure~ [1] file sapjoy 2007.02.27 7286
86 3. call function [1] sapjoy 2007.02.27 2962
85 2. get cursor에 대한답변 [1] sapjoy 2007.02.27 3240
84 1. 필드심볼에 대한답변( field-symbol ) file sapjoy 2007.02.27 4268
83 <b>[완료]</b><b>[완료]</b><b>[완료]</b>OUTTER JOIN 에서... [3] 초초보 2007.02.26 3427
82 질문이 있습니다. 로미오 2007.02.21 2525
81 [re] 질문이 있습니다. [7] file sapjoy 2007.02.21 2465
80 sql문 in조건 초보보초보 2007.02.21 3248
79 [re] sql문 in조건 file sapjoy 2007.02.21 3581
78 sap 버젼에 대한 질문 [5] 맨날초보 2007.02.16 2762
77 <b>[완료]</b><b>[완료]</b><b>[완료]</b>read 문에 관한 질문입니다. [2] 초보 2007.02.16 2887
76 [re] read 문에 관한 질문입니다. [1] file sapjoy 2007.02.16 2754
75 <b>[완료]</b>인덱스에 대해 자세하게 알고 싶습니다.[내용무] [1] 인덱스 2007.02.15 2602
74 <b>[완료]</b>엉뚱한 질문 하나... [4] 질문자 2007.02.13 2373
73 [re] 엉뚱한 질문 하나...(data 아카이빙이란?) [5] file sapjoy 2007.02.13 3320
72 저도... 처음으로 글을 작성 해보네요~!! 저 역시 .. 실습 부분의 질문입니다. [4] file 이종현 2007.02.10 2359
71 [re] 저도... 처음으로 글을 작성 해보네요~!! 저 역시 .. 실습 부분의 질문입니다. sapjoy 2007.02.10 2896
70 [re] 똑같은 에러가 뜹니다. ^^ ..다시 한번 조언 부탁 드릴께요 [5] file 이종현 2007.02.10 2652
69 실습중에 막힌게 있어서요~ [3] file 홍성종 2007.02.10 2489
68 <b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b><b>[완료]</b>필드심볼을 사용하여 loop를 돌릴때.... 초초보 2007.02.10 2862