메뉴 건너뛰기

SAP 한국 커뮤니티

[re] 질문입니다~~

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

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
53 <b>[완료]</b>질문입니다~~ [2] 홍성종 2007.02.06 2681
» [re] 질문입니다~~ [5] 구본찬 2007.02.06 2471
51 [re] 질문입니다~~ [4] file sapjoy 2007.02.06 2779
50 <b>[완료]</b>일본 SAP [3] 아밥 2007.02.05 3018
49 운영자님~ 홍성종 2007.02.05 2934
48 <b>[완료]</b>[re] 운영자님~ [5] sapjoy 2007.02.05 2753
47 운영자님~abap oop에대해서 질문입니다~ 홍성종 2007.02.05 3040
46 [re] 운영자님~abap oop에대해서 질문입니다~ [1] file sapjoy 2007.02.05 2919
45 'MULTIRANGE_CONVERT_ALPHA' Function 에관한 질문입니다....^^;; 김영욱 2007.02.05 2737
44 [re] 'MULTIRANGE_CONVERT_ALPHA' Function 에관한 질문입니다....^^;; [3] file sapjoy 2007.02.05 2712
43 질문이 있습니다. 프로그램 BC_ALVEXCEL처럼 SAP에 EXCEL을 연동시켜 데이터를 수정하고 싶은데 방법이.. [1] 초보보초보 2007.01.31 3003
42 T-CODE SMW0 에 대해서 아시는분 없나요? [2] 초보보초보 2007.01.31 3481
41 [re] T-CODE SMW0 에 대해서 아시는분 없나요? [7] file sapjoy 2007.01.31 3833
40 데이터 발췌 방법 [2] 정도진 2007.01.29 2887
39 [re] 데이터 발췌 방법 [3] file sapjoy 2007.01.30 4052
38 <b>[완료]</b><b>[완료]</b>필드심볼에 대해 질문올립니다.. [5] 왕초보 2007.01.26 3199
37 [re] 필드심볼에 대해 질문올립니다.. [3] file sapjoy 2007.01.26 3024
36 EXCEL(엑셀)을 출력화면으로 하여 INTERNAL TABLE의 데이터를 수정 또는 INSERT할 수 있는 방법의 질문 [1] file 초보보초보 2007.01.26 3249
35 [re] EXCEL(엑셀)을 출력화면으로 하여 INTERNAL TABLE의 데이터를 수정 또는 INSERT할 수 있는 방법의 질문 file sapjoy 2007.01.26 2806
34 [re] EXCEL(엑셀)을 출력화면으로 하여 INTERNAL TABLE의 데이터를 수정 또는 INSERT할 수 있는 방법의 질문 초보보초보 2007.01.26 3329