REPORT Z17_003 .
CLASS counter DEFINITION.
PUBLIC SECTION.
METHODS: set IMPORTING set_value type i,
increment,
get EXPORTING get_value type i.
* PROTECTED SECTION.
DATA count TYPE i.
ENDCLASS.
CLASS counter 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 COUNTER,
L_imp TYPE I.
START-OF-SELECTION.
CREATE OBJECT CREF1.
CALL METHOD CREF1->SET( exporting set_value = 3 ).
WRITE : / 'SET METHOD :', CREF1->COUNT.
CALL METHOD CREF1->increment.
CALL METHOD CREF1->GET( IMPORTING get_value = l_imp ).
WRITE : / 'GET METHOD :' , l_imp.
CLASS counter DEFINITION.
PUBLIC SECTION.
METHODS: set IMPORTING set_value type i,
increment,
get EXPORTING get_value type i.
* PROTECTED SECTION.
DATA count TYPE i.
ENDCLASS.
CLASS counter 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 COUNTER,
L_imp TYPE I.
START-OF-SELECTION.
CREATE OBJECT CREF1.
CALL METHOD CREF1->SET( exporting set_value = 3 ).
WRITE : / 'SET METHOD :', CREF1->COUNT.
CALL METHOD CREF1->increment.
CALL METHOD CREF1->GET( IMPORTING get_value = l_imp ).
WRITE : / 'GET METHOD :' , l_imp.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
71 | Z17_ZSFLIGHT | sapjoy | 2007.02.27 | 2413 |
70 | REPORT Z17_028 | sapjoy | 2007.02.26 | 2939 |
69 | REPORT Z09_013 | sapjoy | 2007.02.24 | 2243 |
68 | REPORT Z17_020. [2] | sapjoy | 2007.02.23 | 2187 |
67 | REPORT z17_025 | sapjoy | 2007.02.23 | 2202 |
66 | REPORT Z17_020 | sapjoy | 2007.02.23 | 2172 |
65 | REPORT Z17_000. | sapjoy | 2007.02.22 | 2419 |
64 | REPORT Z17_022 | sapjoy | 2007.02.22 | 2315 |
63 | REPORT Z17_017 . | sapjoy | 2007.02.15 | 2181 |
62 | REPORT Z17_016 . | sapjoy | 2007.02.14 | 2162 |
61 | REPORT Z17_015 | sapjoy | 2007.02.13 | 2280 |
60 | REPORT Z17_012 | sapjoy | 2007.02.13 | 2305 |
59 | INCLUDE Z17_011_CLASS | sapjoy | 2007.02.12 | 2489 |
58 | REPORT Z17_011 | sapjoy | 2007.02.12 | 2287 |
57 | REPORT Z017_007 [3] | sapjoy | 2007.02.12 | 2353 |
56 | REPORT Z17_006 | sapjoy | 2007.02.12 | 2208 |
55 | REPORT Z17_005 | sapjoy | 2007.02.12 | 2174 |
» | REPORT Z17_003 | sapjoy | 2007.02.09 | 2347 |
53 | REPORT Z17_002 | sapjoy | 2007.02.08 | 2138 |
52 | REPORT Z17_001. | sapjoy | 2007.02.07 | 2147 |