REPORT Z17_004.
CLASS counter DEFINITION.
PUBLIC SECTION.
* PROTECTED SECTION.
DATA count TYPE i.
ENDCLASS.
CLASS counter2 DEFINITION INHERITING FROM counter.
PUBLIC SECTION.
METHODS: set IMPORTING set_value type i,
increment,
get EXPORTING get_value type i.
PRIVATE SECTION.
* PROTECTED SECTION.
* DATA count TYPE i.
ENDCLASS.
CLASS counter2 IMPLEMENTATION.
METHOD set.
count = set_value.
ENDMETHOD.
METHOD increment.
ADD 1 TO count.
ENDMETHOD.
METHOD get.
get_value = count.
ENDMETHOD.
ENDCLASS.
DATA : CREF1 TYPE REF TO COUNTER2,
L_imp TYPE I.
START-OF-SELECTION.
CREATE OBJECT CREF1.
CALL METHOD CREF1->SET( exporting set_value = 3 ).
CALL METHOD CREF1->increment.
CALL METHOD CREF1->GET( IMPORTING get_value = l_imp ).
WRITE : / 'GET METHOD :' , l_imp.
CLASS counter DEFINITION.
PUBLIC SECTION.
* PROTECTED SECTION.
DATA count TYPE i.
ENDCLASS.
CLASS counter2 DEFINITION INHERITING FROM counter.
PUBLIC SECTION.
METHODS: set IMPORTING set_value type i,
increment,
get EXPORTING get_value type i.
PRIVATE SECTION.
* PROTECTED SECTION.
* DATA count TYPE i.
ENDCLASS.
CLASS counter2 IMPLEMENTATION.
METHOD set.
count = set_value.
ENDMETHOD.
METHOD increment.
ADD 1 TO count.
ENDMETHOD.
METHOD get.
get_value = count.
ENDMETHOD.
ENDCLASS.
DATA : CREF1 TYPE REF TO COUNTER2,
L_imp TYPE I.
START-OF-SELECTION.
CREATE OBJECT CREF1.
CALL METHOD CREF1->SET( exporting set_value = 3 ).
CALL METHOD CREF1->increment.
CALL METHOD CREF1->GET( IMPORTING get_value = l_imp ).
WRITE : / 'GET METHOD :' , l_imp.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
510 | REPORT Z03_010 [2] | sapjoy | 2007.05.14 | 2655 |
509 | REPORT Z03_013 [4] | sapjoy | 2007.05.14 | 2388 |
508 | REPORT Z03_015 | sapjoy | 2007.05.14 | 2131 |
507 | REPORT Z03_016 [1] | sapjoy | 2007.05.14 | 2220 |
506 | TYPE-POOL ztgrp [1] | sapjoy | 2007.05.14 | 2699 |
505 | REPORT Z03_020 | sapjoy | 2007.05.15 | 2166 |
504 | REPORT Z03_021 [5] | sapjoy | 2007.05.15 | 2737 |
503 | REPORT z03_022 [2] | sapjoy | 2007.05.15 | 2111 |
502 | REPORT z03_026 | sapjoy | 2007.05.15 | 2313 |
501 | REPORT z03_029 [1] | sapjoy | 2007.05.15 | 2132 |
500 | REPORT Z03_028 | sapjoy | 2007.05.15 | 2102 |
499 | REPORT Z03_030 | sapjoy | 2007.05.15 | 2166 |
498 | REPORT Z04_001 | sapjoy | 2007.05.16 | 2375 |
497 | REPORT Z04_003 [9] | sapjoy | 2007.05.16 | 2561 |
496 | REPORT Z04_008 [1] | sapjoy | 2007.05.16 | 2150 |
495 | REPORT Z04_021 [4] | sapjoy | 2007.05.16 | 2206 |
494 | REPORT Z04_022 | sapjoy | 2007.05.16 | 2092 |
493 | REPORT Z04_012 [1] | sapjoy | 2007.05.16 | 2064 |
492 | REPORT Z04_011 [1] | sapjoy | 2007.05.16 | 2249 |
491 | REPORT Z04_015 | sapjoy | 2007.05.16 | 2111 |