메뉴 건너뛰기

SAP 한국 커뮤니티

[re] 질문입니다~~

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

백문이 불여일견이라 한번 위의 코딩대로 한번
이해해보세요.
번호 제목 글쓴이 날짜 조회 수
6468 자재문서 처리 Tcode를 실제 사용자가 최초 접속한 트랜잭션으로 넣을 수 있을까요? [5] 로우랜즈 2023.08.29 202
6467 Subroutine CHANGING vs CHANGING VALUE() [2] susan123 2023.08.14 204
6466 ALV 기본 템플릿 질문드립니다. [1] 쌥존 2023.08.09 345
6465 혹시 IRR 계산 로직 알고 계신분 있으실까요? 초밥 2023.08.09 163
6464 BP(Business Partner) 유효성 체크 문의드려요. NeVaDa 2023.08.09 202
6463 SQL Query에서 특정 MATNR 제거 후 가져올 때 [3] MANG111 2023.08.02 292
6462 select single max( fld1 ) vs select max ( fld1 ) 차이가 있나요? [3] 로우랜즈 2023.07.28 315
6461 완전 초보 질문입니다.. [1] 냥냥2 2023.07.20 337
6460 아밥 초보...listbox 기본 공백 row 제거 방법 질문드려요! [4] file rioss1004 2023.07.14 465
6459 이동 유형 확인 부탁 드립니다. [2] file 미자나즈 2023.07.07 267
6458 SMW0에서 XLSM 사용설정은 어떻게 해야하나요? [4] mhyou01 2023.07.06 329
6457 type ~ 과 type table of ~ 의 차이점에 대해 설명이 필요해요 [2] ektkdwk1234 2023.07.05 516
6456 SAP GUI 로그인 문제: 10061 [1] file dhkwlsks 2023.06.29 243
6455 퀵뷰 다른언어로 로그인 시 덤프문제 (Quick Viewer) [3] file 아좀더 2023.06.29 162
6454 ABAP으로 무한루프 돌면서 리스너 같이 구현가능할까요? [4] 로우랜즈 2023.06.26 341
6453 혹시.. REGUH, REGUP 라는 테이블을 아시나요? [4] 초밥 2023.06.20 371
6452 Selection-Screen의 Obligatory와 user-command의 관계 [1] 리자몽워터 2023.06.19 144
6451 RFC 호출시 호출한 system id 알 수 있나요? [2] 웬디 2023.06.14 319
6450 운영중인 프로그램의 꽤 큰 기능추가시 보통 어떻게 진행하시나요? [4] 로우랜즈 2023.06.02 310
6449 생산 오더(COOIS) 강제 완료 방법 문의 [2] 미자나즈 2023.05.23 345