메뉴 건너뛰기

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

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
507 방법 좀 부탁드립니다. ( 형변환 ) [5] 나도아밥퍼 2007.08.01 2292
506 뷰필드를 추가 하는 방법 좀 알려주세요. ccc 2007.08.01 1792
505 BDC에서 입력필드에 DATA 입력시 ERROR [2] file 하늘만 2007.07.31 1700
504 Table Control의 내용을 엑셀로 다운로드? [3] 김지성 2007.07.31 2653
503 형 변환에 대한 질문입니다. [1] 나도아밥퍼 2007.07.31 1662
502 테이블 유지보수 생성기로 alv선택화면같은 검색화면을 적용시킬수있나요? [1] 노력&성장 2007.07.31 1894
501 read_text 펑션에 대해 질문 [2] 댕댕 2007.07.31 1931
500 WRITE 프로그램 디버깅에 대해서 [3] 하늘만 2007.07.31 1881
499 MESSAGE에 나타난 DATA를 사용에 대해서. [7] file 하늘만 2007.07.30 1817
498 혹시 4.6b 까지 사용된 j_1k* 테이블을 대체 할만한 table을 아시는분 없으신가요?? [3] bd 2007.07.28 1767
497 소스 설명 좀 부탁드립니다. [2] 나도아밥퍼 2007.07.27 1724
496 [ 공식 ] 상위 %인지 구하는 공식을 짜야합니다. 도와주십시오. [3] 나도아밥퍼 2007.07.27 1821
495 여러분의 조언을 부탁드립니다. (필드설정 ) [1] 나도아밥퍼 2007.07.27 1876
494 TABLE CONTROL 에 대한 질문입니다. (mark 체크 ) [6] 하늘만 2007.07.27 2964
493 Jco sun 2.1.6 버젼 가지고 계신분 있으신가요? [1] jgh 2007.07.26 1719
492 해당 소스 분석 좀 부탁드려요..^^ [1] 나도아밥퍼 2007.07.26 1993
491 해당 그림에 대한 여러분의 도움을 희망합니다. [5] file 나도아밥퍼 2007.07.26 1870
490 [질문] sap에서 웹팝업화면을 띄울려고 하는데요... [3] 나도아밥퍼 2007.07.26 2037
489 [MM Table Join] 문의 드립니다. [1] 김지성 2007.07.26 1778
488 엑셀파일 업로드 샘플 소스 좀 부탁드립니다. [5] 나도아밥퍼 2007.07.25 3078