메뉴 건너뛰기

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

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
70 <img src=1.gif>SQL HINT절 (%_HINTS ORACLE'&max_in_blocking_factor 40&'.) 에 대해 질문드립니다. [5] 아밥 2010.03.16 7084
69 <b>[완료]</b>select count(*) 구문이 어떤 구문인가요?? [6] bd 2008.05.15 7107
68 <b>[완료]</b>LVC_FIELDCATALOG_MERGE 펑션에 대한 문의 [5] 박상우 2008.07.28 7109
67 <img src=3.gif><img src=1.gif>SUBMIT 구문을 이용하지 않고 화면의 SPOOL 번호 구하는 방법은 없나요?? 튀밥 2010.04.28 7151
66 <img src=3.gif>CTS 릴리즈 취소하는 방법 좀 알려주세요. [3] 기쁨 2011.01.26 7174
65 [요청]왕기초질문 LEFT OUTER JOIN [4] 벤또 2007.12.10 7192
64 <b>[완료]</b>Class ALV에서요....TOP-OF-PAGE할려면요?? [4] 복만돌이 2008.07.01 7266
63 [요청]덤프에럽니다. 평소에 쓰는 alv 프로그램 똑같은 형식을 사용해서 alv프로그램을 만들어줬는데요. [2] 아밥걸 2008.07.09 7513
62 [요청]최대값 구하기 [10] 풍뎅이 2007.11.23 7672
61 <img src=3.gif border=0>mes table 로 인서트 중 dump 가 발생했습니다 [4] 아밥어렵네요 2009.04.15 7698
60 <img src=3.gif>프로그램 강제종료 방법이 있을까요?[추천:e-abap] [7] file 나만고양이 2010.10.04 7760
59 [요청]FUNCTION ALV 에서 DATA_CHANGED 후 REFRESH 기능이 있을까요? [7] 왕초~삽질맨 2008.10.06 7770
58 [요청]LEAVE TO LIST-PROCESSING. 관련 된거요 [2] 아바퍼 2009.02.17 7772
57 <img src=3.gif>MESSAGE_TYPE_X 덤프 문의드립니다. [6] 나만고양이 2010.11.15 7811
56 [요청]MESSAGE TYPE에 관해 알고싶습니다!! [7] genius 2008.03.26 7907
55 [요청]절대값을 어떻게 해용???초보라서 ..부탁해용~~~~~~~ [3] 因緣 2008.10.29 7914
54 [요청]SE80에서 프로그램 옆의 Description에 관하여 문의드립니다. [5] 풍뎅이 2008.02.26 8024
53 <img src=2.gif>인터널테이블 데이터 중복체크 질문드립니다. [5] GoodAbap 2010.06.21 8097
52 <img src=3.gif>RFC 생성시 파라미터의 참조유형에 대한 질문입니다 [2] 승질알면서 2010.08.27 8102
51 [요청]ALV 에서 수량 필드 소숫점 없애는 방법 [5] 파릇이 2008.06.12 8194