*&---------------------------------------------------------------------*
*& Report Z17_021 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z17_021 .
* INTERFACE status
INTERFACE status.
METHODS write.
DATA cnt TYPE i.
ENDINTERFACE. "status
* CLASS c_counter1 DEFINITION
CLASS c_counter1 DEFINITION.
PUBLIC SECTION.
INTERFACES status.
METHODS increment.
ENDCLASS. "c_counter1 DEFINITION
* CLASS c_counter1 IMPLEMENTATION
CLASS c_counter1 IMPLEMENTATION.
METHOD status~write.
WRITE: / '숫자는', status~cnt.
ENDMETHOD. "status~write
METHOD increment.
ADD 2 TO status~cnt.
ENDMETHOD.
ENDCLASS. "c_counter1 IMPLEMENTATION
* CLASS c_counter2 DEFINITION
CLASS c_counter2 DEFINITION.
PUBLIC SECTION.
INTERFACES status.
ENDCLASS. "c_counter2 DEFINITION
* CLASS c_counter2 IMPLEMENTATION
CLASS c_counter2 IMPLEMENTATION.
METHOD status~write.
WRITE: / '속도는', status~cnt.
ENDMETHOD. "status~write
ENDCLASS. "c_counter2 IMPLEMENTATION
DATA : cref1 TYPE REF TO c_counter1,
cref2 TYPE REF TO c_counter2,
iref TYPE REF TO status.
START-OF-SELECTION.
CREATE OBJECT : cref1, cref2.
CALL METHOD CREF1->INCREMENT.
CALL METHOD cref1->status~write.
iref = cref1.
cref1->status~cnt = 3.
CALL METHOD iref->write.
cref2->status~cnt = 10.
CALL METHOD cref2->status~write.
iref = cref2.
cref2->status~cnt = 20.
CALL METHOD iref->write.
*& Report Z17_021 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT Z17_021 .
* INTERFACE status
INTERFACE status.
METHODS write.
DATA cnt TYPE i.
ENDINTERFACE. "status
* CLASS c_counter1 DEFINITION
CLASS c_counter1 DEFINITION.
PUBLIC SECTION.
INTERFACES status.
METHODS increment.
ENDCLASS. "c_counter1 DEFINITION
* CLASS c_counter1 IMPLEMENTATION
CLASS c_counter1 IMPLEMENTATION.
METHOD status~write.
WRITE: / '숫자는', status~cnt.
ENDMETHOD. "status~write
METHOD increment.
ADD 2 TO status~cnt.
ENDMETHOD.
ENDCLASS. "c_counter1 IMPLEMENTATION
* CLASS c_counter2 DEFINITION
CLASS c_counter2 DEFINITION.
PUBLIC SECTION.
INTERFACES status.
ENDCLASS. "c_counter2 DEFINITION
* CLASS c_counter2 IMPLEMENTATION
CLASS c_counter2 IMPLEMENTATION.
METHOD status~write.
WRITE: / '속도는', status~cnt.
ENDMETHOD. "status~write
ENDCLASS. "c_counter2 IMPLEMENTATION
DATA : cref1 TYPE REF TO c_counter1,
cref2 TYPE REF TO c_counter2,
iref TYPE REF TO status.
START-OF-SELECTION.
CREATE OBJECT : cref1, cref2.
CALL METHOD CREF1->INCREMENT.
CALL METHOD cref1->status~write.
iref = cref1.
cref1->status~cnt = 3.
CALL METHOD iref->write.
cref2->status~cnt = 10.
CALL METHOD cref2->status~write.
iref = cref2.
cref2->status~cnt = 20.
CALL METHOD iref->write.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
570 | REPORT Z17_011 | sapjoy | 2007.02.12 | 2287 |
569 | INCLUDE Z17_011_CLASS | sapjoy | 2007.02.12 | 2489 |
568 | REPORT Z17_012 | sapjoy | 2007.02.12 | 2304 |
567 | REPORT Z17_014. [1] | sapjoy | 2007.02.13 | 2503 |
566 | REPORT Z17_015 | sapjoy | 2007.02.13 | 2280 |
565 | REPORT Z17_016 . | sapjoy | 2007.02.13 | 2162 |
564 | REPORT Z17_017 . | sapjoy | 2007.02.14 | 2181 |
563 | REPORT Z17_019 [1] | sapjoy | 2007.02.14 | 2748 |
» | REPORT Z17_021 . | sapjoy | 2007.02.21 | 2386 |
561 | REPORT Z17_022 | sapjoy | 2007.02.21 | 2315 |
560 | REPORT Z17_000. | sapjoy | 2007.02.22 | 2419 |
559 | REPORT Z17_020 | sapjoy | 2007.02.22 | 2172 |
558 | REPORT z17_025 | sapjoy | 2007.02.22 | 2202 |
557 | REPORT Z17_020. [2] | sapjoy | 2007.02.23 | 2185 |
556 | REPORT Z09_013 | sapjoy | 2007.02.23 | 2243 |
555 | REPORT Z17_028 | sapjoy | 2007.02.26 | 2937 |
554 | Z17_ZSFLIGHT | sapjoy | 2007.02.26 | 2413 |
553 | REPORT Z02_016 | sapjoy | 2007.02.27 | 2294 |
552 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
551 | Z18_001_PBO | sapjoy | 2007.03.02 | 2585 |