REPORT zr_class_02.
*----------------------------------------------------------------------*
* CLASS lcl_car DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_car DEFINITION.
PUBLIC SECTION.
METHODS set_car IMPORTING im_model TYPE string
im_make TYPE string.
METHODS get_car EXPORTING ex_model TYPE string
ex_make TYPE string.
PRIVATE SECTION.
DATA: model TYPE string,
make TYPE string.
ENDCLASS. "lcl_car DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_car IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_car IMPLEMENTATION.
METHOD set_car.
model = im_model.
make = im_make.
ENDMETHOD. "set_car
METHOD get_car.
ex_model = model.
ex_make = make.
ENDMETHOD. "get_car
ENDCLASS. "lcl_car IMPLEMENTATION
START-OF-SELECTION.
DATA: r_car01 TYPE REF TO lcl_car,
r_car02 TYPE REF TO lcl_car.
DATA: gv_model TYPE string,
gv_make TYPE string.
CREATE OBJECT r_car01.
r_car01->set_car( EXPORTING im_model = 'SM7'
im_make = '2009' ).
r_car01->get_car( IMPORTING ex_model = gv_model
ex_make = gv_make ).
WRITE:/ gv_model, gv_make.
r_car02 = r_car01. "casging
CREATE OBJECT r_car01. " r_car01 below new object indicate
r_car01->set_car( EXPORTING im_model = 'SM5'
im_make = '2010' ).
r_car01->get_car( IMPORTING ex_model = gv_model
ex_make = gv_make ).
WRITE:/ gv_model, gv_make.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
105 | report painter 설명 자료 [20] | 조재경 | 2012.06.09 | 15549 |
104 | CO CCA Process Overview 자료 입니다. [20] | yaho | 2012.06.28 | 6673 |
103 | abap 교재 요약 워드 파일입니다... [45] | 준맘 | 2012.08.07 | 17204 |
102 | class-based exceptions 예제. | 철죽1 | 2012.09.02 | 12264 |
101 | shared objects 예제 | 철죽1 | 2012.09.02 | 5420 |
100 | create object 예. [1] | 철죽1 | 2012.09.02 | 12914 |
» | casting 예 [1] | 철죽1 | 2012.09.02 | 11474 |
98 | constructor multiple instantiation 예 | 철죽1 | 2012.09.02 | 11688 |
97 | instance vs static 예 [1] | 철죽1 | 2012.09.02 | 12619 |
96 | method create 예 | 철죽1 | 2012.09.02 | 11645 |
95 | selection screen program [1] | 철죽1 | 2012.09.02 | 5573 |
94 | tabstrip [5] | 철죽1 | 2012.09.02 | 12143 |
93 | lock 예 [5] | 철죽1 | 2012.09.02 | 13218 |
92 | POC 예 [9] | 철죽1 | 2012.09.02 | 11106 |
91 | sap 튜닝 자료입니다. [44] | iop890mm | 2012.10.09 | 12670 |
90 | gdb형식의 abap 강좌입니다. [6] | tobypapa | 2012.10.19 | 10982 |
89 | 파일 첨부 - 한개씩 말고 다중으로 가능? [1] | 연오랑 | 2012.10.23 | 12724 |
88 | ABAP Troubleshooting [4] | paran | 2012.11.13 | 14592 |
87 | ABAP Tunning Guide [2] | 민상애비 | 2012.11.14 | 15683 |
86 | Technical Guide-ABAP Tuning 기초 [5] | 민상애비 | 2012.11.14 | 13079 |
r_car02 = r_car01. "casging
여기서의 casting 에 의미는 instance 의 복사 정도로 이해 하면 될 듯 합니다.
위 프로그램 예는 r_car01 을 r_car02 로 복사후 새로 r_car01 을 지정하여
기존의 r_car01 과 새로운 r_car01 을 만드는 예 입니다.
참고하세요.