메뉴 건너뛰기

SAP 한국 커뮤니티

[re] 질문입니다~~

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

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
472 <img src=2.gif border=0>MESSAGE 명령어에 나오는 TEXT에 색상이나 두께를 진하게 하고자 합니다. [1] 대지꿀꾸링 2009.08.04 964
471 [요청]타시스템과 연동해서 데이타를 가져올 경우 텍스트가 깨지는 것 해결방법 요청합니다.. [1] 무한반복 2008.12.04 964
470 <img src=2.gif>GUI_DOWNLOAD 로 다운받은 파일에서 한글이 [5] 블랙아이즈 2009.12.23 963
469 <img src=3.gif border=0>함수를 호출하여 팝업창이 뜨면 각항목을 체크해야 하는데.. [3] 노아 2009.09.22 963
468 [요청]실습하다가 모르는것 몇가지 여쭈어보겠습니다. [3] file 앙리 2008.09.12 963
467 [요청]밑에 스마트폼 질문 사항중에 추가 사항입니다...ㅠㅠ [1] file 좋아 2008.08.29 963
466 [요청]Class : IF_HTTP_SERVER, CL_HTTP_SERVER 사용해 보신분 계신가요? MadMax 2008.08.04 963
465 <img src=2.gif>GUI_DOWNLOAD 로 다운받은 파일에서 한글이 [2] ac3mania 2009.12.23 962
464 <b>[완료]</b>function에서 import한 값이 변하지 않게... [2] shiningroad 2009.03.17 961
463 class alv edit 필드 숫자 자동변경 [2] sap는어려워 2019.10.25 959
462 <img src=2.gif border=0>ECC 6.0 에서 추가된 ABAP 기능들과 사용예를 알고 싶은데요. [6] 별이 2009.04.23 959
461 <img src=2.gif>GUI_DOWNLOAD 로 다운받은 파일에서 한글이 파우두나 2009.12.28 957
460 <img src=2.gif>GUI_DOWNLOAD 로 다운받은 파일에서 한글이 [5] im 해성 2009.12.22 957
459 [re] <img src=2.gif border=0>[급합니다] report 프로그램에서 write 출력화면에서 더블클릭 실현관한 문제입니다. 띵호아빠 2009.08.06 957
458 [요청]ERP 문류의 흐름 네비게이션에대한 질문....도와주세요.. [2] 아밥입문자 2008.08.07 957
457 <img src=2.gif>GUI_DOWNLOAD 로 다운받은 파일에서 한글이 [1] 초보bsp/abap 2009.12.23 955
456 <img src=2.gif border=0>at new 구문에 관한 질문입니다. [6] 아밥고지를 찾아서 2009.05.18 955
455 <img src=2.gif>GUI_DOWNLOAD 로 다운받은 파일에서 한글이 [5] 예슬짱 2009.12.23 954
454 <img src=2.gif>[ role 관련 ] 하여 문의드립니다. [5] 맹꽁이 2010.10.13 950
453 alv에서 data changed 질문입니다. [2] 닮닮 2019.03.28 948