Inline Decleration (Değişken Tanımlama) for Method
*&---------------------------------------------------------------------*
*& Report ZCEM_EGT_0012
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zcem_egt_0012.
"ESKİ METHOD"
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
METHODS:
sum_numbers IMPORTING iv_num1 TYPE i
iv_num2 TYPE i
EXPORTING ev_result TYPE i,"Eski
sum_numbers_v2 IMPORTING iv_num1 TYPE i
iv_num2 TYPE i
RETURNING VALUE(rv_result) TYPE i."Yeni
ENDCLASS.
CLASS lcl_main IMPLEMENTATION.
METHOD sum_numbers.
ev_result = iv_num1 + iv_num2.
ENDMETHOD.
METHOD sum_numbers_v2.
rv_result = iv_num1 + iv_num2.
ENDMETHOD.
ENDCLASS.
*DATA: gv_num1 TYPE i,
* gv_num2 TYPE i,
* gv_res TYPE i.
*
*DATA : go_main type REF TO lcl_main.
*
*START-OF-SELECTION.
*
*CREATE OBJECT go_main.
*
*gv_num1 = 10.
*gv_num2 = 20.
*
*go_main->sum_numbers(
* EXPORTING
* iv_num1 = gv_num1
* iv_num2 = gv_num2
* IMPORTING
* ev_result = gv_res"Eski
*).
*
*WRITE : 'Result :', gv_res.
DATA: gv_num1 TYPE i,
gv_num2 TYPE i.
DATA : go_main TYPE REF TO lcl_main.
START-OF-SELECTION.
CREATE OBJECT go_main.
gv_num1 = 10.
gv_num2 = 20.
go_main->sum_numbers(
EXPORTING
iv_num1 = gv_num1
iv_num2 = gv_num2
IMPORTING
ev_result = DATA(lv_res)"Yeni
).
go_main->sum_numbers_v2(
EXPORTING
iv_num1 = gv_num1
iv_num2 = gv_num2
RECEIVING
rv_result = DATA(lv_res2)"Yeni
).
"Yeni
DATA(lv_res3) = go_main->sum_numbers_v2(
iv_num1 = gv_num1
iv_num2 = gv_num2
).
WRITE : 'Eski Syntax :', lv_res.
WRITE : 'Yeni Syntax :', lv_res2.
WRITE : 'En Güncel Syntax :', lv_res3.
*& Report ZCEM_EGT_0012
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zcem_egt_0012.
"ESKİ METHOD"
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
METHODS:
sum_numbers IMPORTING iv_num1 TYPE i
iv_num2 TYPE i
EXPORTING ev_result TYPE i,"Eski
sum_numbers_v2 IMPORTING iv_num1 TYPE i
iv_num2 TYPE i
RETURNING VALUE(rv_result) TYPE i."Yeni
ENDCLASS.
CLASS lcl_main IMPLEMENTATION.
METHOD sum_numbers.
ev_result = iv_num1 + iv_num2.
ENDMETHOD.
METHOD sum_numbers_v2.
rv_result = iv_num1 + iv_num2.
ENDMETHOD.
ENDCLASS.
*DATA: gv_num1 TYPE i,
* gv_num2 TYPE i,
* gv_res TYPE i.
*
*DATA : go_main type REF TO lcl_main.
*
*START-OF-SELECTION.
*
*CREATE OBJECT go_main.
*
*gv_num1 = 10.
*gv_num2 = 20.
*
*go_main->sum_numbers(
* EXPORTING
* iv_num1 = gv_num1
* iv_num2 = gv_num2
* IMPORTING
* ev_result = gv_res"Eski
*).
*
*WRITE : 'Result :', gv_res.
DATA: gv_num1 TYPE i,
gv_num2 TYPE i.
DATA : go_main TYPE REF TO lcl_main.
START-OF-SELECTION.
CREATE OBJECT go_main.
gv_num1 = 10.
gv_num2 = 20.
go_main->sum_numbers(
EXPORTING
iv_num1 = gv_num1
iv_num2 = gv_num2
IMPORTING
ev_result = DATA(lv_res)"Yeni
).
go_main->sum_numbers_v2(
EXPORTING
iv_num1 = gv_num1
iv_num2 = gv_num2
RECEIVING
rv_result = DATA(lv_res2)"Yeni
).
"Yeni
DATA(lv_res3) = go_main->sum_numbers_v2(
iv_num1 = gv_num1
iv_num2 = gv_num2
).
WRITE : 'Eski Syntax :', lv_res.
WRITE : 'Yeni Syntax :', lv_res2.
WRITE : 'En Güncel Syntax :', lv_res3.
Yorumlar
Yorum Gönder