REPORT z14_16.
*----------------------------------------------------------------------*
* INTERFACE account
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE account.
METHODS calc .
DATA balance TYPE i.
ENDINTERFACE. "account
*----------------------------------------------------------------------*
* CLASS CLS1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 DEFINITION.
PUBLIC SECTION.
INTERFACES account.
ALIASES calc FOR
account~write_status.
ENDCLASS. "CLS1 DEFINITION
*----------------------------------------------------------------------*
* CLASS CLS1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 IMPLEMENTATION.
METHOD account~calc.
WRITE : / 'Deposit money is : ', account~balance.
ENDMETHOD. "account~calc
ENDCLASS. "CLS1 IMPLEMENTATION
DATA : cref1 TYPE REF TO cls1.
START-OF-SELECTION.
CREATE OBJECT : cref1, cref2.
cref1->account~balance = 300.
CALL METHOD: cref1->account~calc.
iref = cref1.
CALL METHOD iref->calc.
cref2->account~balance = '-200'.
CALL METHOD: cref2->account~calc.
iref = cref2.
CALL METHOD iref->calc.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
90 | REPORT Z07_05. | sapjoy | 2012.07.30 | 943 |
89 | REPORT Z16_02. | sapjoy | 2012.08.01 | 939 |
88 | REPORT z15_11. | sapjoy | 2012.08.01 | 937 |
87 | REPORT z17_11 . | sapjoy | 2012.08.01 | 934 |
86 | REPORT z14_04. | sapjoy | 2012.08.01 | 932 |
85 | REPORT z12_12. | sapjoy | 2012.07.30 | 932 |
84 | REPORT Z12_19 | sapjoy | 2012.07.30 | 931 |
83 | REPORT z05_05. | sapjoy | 2012.07.30 | 931 |
82 | REPORT z12_10. | sapjoy | 2012.07.30 | 927 |
81 | REPORT Z12_20. | sapjoy | 2012.07.30 | 926 |
80 | REPORT z05_09. | sapjoy | 2012.07.30 | 924 |
79 | REPORT Z05_08. | sapjoy | 2012.07.30 | 923 |
78 | REPORT Z14_20. | sapjoy | 2012.08.01 | 921 |
77 | REPORT z12_21. | sapjoy | 2012.07.30 | 920 |
76 | REPORT z05_26. | sapjoy | 2012.07.30 | 918 |
75 | REPORT z12_08. | sapjoy | 2012.07.30 | 915 |
74 | REPORT z05_02. | sapjoy | 2012.07.30 | 914 |
73 | REPORT z05_04. | sapjoy | 2012.07.30 | 913 |
72 | REPORT z05_11. | sapjoy | 2012.07.30 | 912 |
» | REPORT z14_16. [1] | sapjoy | 2012.08.01 | 910 |
REPORT Z14_16.
*----------------------------------------------------------------------*
* INTERFACE account
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE account.
METHODS calc .
DATA balance TYPE i.
ENDINTERFACE. "account
*----------------------------------------------------------------------*
* CLASS CLS1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 DEFINITION.
PUBLIC SECTION.
INTERFACES account.
* ALIASES calc FOR account~write_status.
ENDCLASS. "CLS1 DEFINITION
*----------------------------------------------------------------------*
* CLASS CLS1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 IMPLEMENTATION.
METHOD account~calc.
WRITE : / 'Deposit money is : ', account~balance.
ENDMETHOD. "account~calc
ENDCLASS. "CLS1 IMPLEMENTATION
*----------------------------------------------------------------------*
* CLASS CLS2 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls2 DEFINITION.
PUBLIC SECTION.
INTERFACES account.
* ALIASES calc FOR account~write_status.
ENDCLASS. "CLS2 DEFINITION
*----------------------------------------------------------------------*
* CLASS CLS2 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls2 IMPLEMENTATION.
METHOD account~calc.
WRITE : / 'Withdrawl money is : ', account~balance.
ENDMETHOD. "account~calc
ENDCLASS. "CLS2 IMPLEMENTATION
DATA : cref1 TYPE REF TO cls1,
cref2 TYPE REF TO cls2,
iref TYPE REF TO account.
START-OF-SELECTION.
CREATE OBJECT : cref1, cref2.
cref1->account~balance = 300.
CALL METHOD: cref1->account~calc.
iref = cref1.
CALL METHOD iref->calc.
cref2->account~balance = '-200'.
CALL METHOD: cref2->account~calc.
iref = cref2.
CALL METHOD iref->calc.