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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
509 | REPORT z17_23 | sapjoy | 2012.08.01 | 2511 |
508 | REPORT Z15_028 | sapjoy | 2007.02.01 | 2509 |
» | REPORT Z17_004. | sapjoy | 2007.02.11 | 2508 |
506 | report zsalv_035 . | sapjoy | 2010.08.20 | 2505 |
505 | REPORT Z17_014. [1] | sapjoy | 2007.02.13 | 2503 |
504 | REPORT Z15_005 | sapjoy | 2007.01.31 | 2503 |
503 | REPORT ZDYNAMIC_ITAB_03 | sapjoy | 2009.02.16 | 2501 |
502 | REPORT z20_001 | sapjoy | 2007.04.12 | 2499 |
501 | REPORT Z11_008 | sapjoy | 2006.12.22 | 2496 |
500 | REPORT Z15_022. | sapjoy | 2007.01.30 | 2494 |
499 | report zunicode_025. | sapjoy | 2008.11.21 | 2489 |
498 | INCLUDE Z17_011_CLASS | sapjoy | 2007.02.12 | 2489 |
497 | REPORT Z04_004 [7] | sapjoy | 2008.04.14 | 2487 |
496 | REPORT z15_023 | sapjoy | 2007.01.30 | 2484 |
495 | REPORT Z13_020 [2] | sapjoy | 2007.11.29 | 2482 |
494 | report zunicode_007 | sapjoy | 2008.11.21 | 2481 |
493 | REPORT ZSAPGOS_001. | sapjoy | 2009.02.11 | 2477 |
492 | report zsalv_002 [1] | sapjoy | 2010.08.20 | 2476 |
491 | REPORT Z04_019 [2] | sapjoy | 2007.05.21 | 2476 |
490 | REPORT Z15_044 [1] | sapjoy | 2008.04.15 | 2474 |