Exporting, Importing and Changing values in ABAP Objects with example
Page 1 of 1
Exporting, Importing and Changing values in ABAP Objects with example
*&---------------------------------------------------------------------*
*& Report Z_08
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZKRISH_OOPS_08.
DATA W_TAX TYPE P DECIMALS 2.
DATA W_SAL TYPE P DECIMALS 2.
*----------------------------------------------------------------------*
* CLASS c1 DEFINITION
*----------------------------------------------------------------------*
CLASS TAX DEFINITION.
PUBLIC SECTION.
METHODS: TAX_CALC IMPORTING GRADE TYPE C
EXPORTING ITAX TYPE P
CHANGING SAL TYPE P.
ENDCLASS. "c1 DEFINITION
.
*----------------------------------------------------------------------*
* CLASS c1 IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS TAX IMPLEMENTATION.
METHOD: TAX_CALC.
CASE GRADE.
WHEN 'A'.
ITAX = SAL * '0.3'.
WHEN 'B'.
ITAX = SAL * '0.2'.
WHEN 'C'.
ITAX = SAL * '0.1'.
ENDCASE.
SAL = SAL - ITAX.
ENDMETHOD. "tax_calc
ENDCLASS. "tax IMPLEMENTATION
START-OF-SELECTION.
DATA: O1 TYPE REF TO TAX.
CREATE OBJECT O1.
W_SAL = 30000.
WRITE: / W_SAL, W_TAX.
CALL METHOD O1->TAX_CALC
EXPORTING
GRADE = 'B'
IMPORTING
ITAX = W_TAX
CHANGING
SAL = W_SAL.
WRITE: / W_SAL, W_TAX.
*& Report Z_08
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZKRISH_OOPS_08.
DATA W_TAX TYPE P DECIMALS 2.
DATA W_SAL TYPE P DECIMALS 2.
*----------------------------------------------------------------------*
* CLASS c1 DEFINITION
*----------------------------------------------------------------------*
CLASS TAX DEFINITION.
PUBLIC SECTION.
METHODS: TAX_CALC IMPORTING GRADE TYPE C
EXPORTING ITAX TYPE P
CHANGING SAL TYPE P.
ENDCLASS. "c1 DEFINITION
.
*----------------------------------------------------------------------*
* CLASS c1 IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS TAX IMPLEMENTATION.
METHOD: TAX_CALC.
CASE GRADE.
WHEN 'A'.
ITAX = SAL * '0.3'.
WHEN 'B'.
ITAX = SAL * '0.2'.
WHEN 'C'.
ITAX = SAL * '0.1'.
ENDCASE.
SAL = SAL - ITAX.
ENDMETHOD. "tax_calc
ENDCLASS. "tax IMPLEMENTATION
START-OF-SELECTION.
DATA: O1 TYPE REF TO TAX.
CREATE OBJECT O1.
W_SAL = 30000.
WRITE: / W_SAL, W_TAX.
CALL METHOD O1->TAX_CALC
EXPORTING
GRADE = 'B'
IMPORTING
ITAX = W_TAX
CHANGING
SAL = W_SAL.
WRITE: / W_SAL, W_TAX.
Similar topics
» Exporting and Importing values in ABAP Objects example
» Exporting Values in ABAP Objects
» Importing parameters in ABAP Objects
» Exporting parameters in ABAP Objects
» Creating multiple Objects in ABAP Objects
» Exporting Values in ABAP Objects
» Importing parameters in ABAP Objects
» Exporting parameters in ABAP Objects
» Creating multiple Objects in ABAP Objects
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
Mon Aug 20, 2012 4:37 pm by Admin
» Difference between Type and Like
Thu Jun 07, 2012 2:40 pm by Admin
» How to handle table control fields in Module Pool program?
Wed May 09, 2012 2:41 am by govind
» Three tables inner join in SAP
Thu May 03, 2012 4:47 pm by Uma_ABAP
» Creating table type in ABAP
Sat Apr 28, 2012 9:03 pm by Uma_ABAP
» Creating user defined types and structures in ABAP
Sat Apr 28, 2012 8:55 pm by Uma_ABAP
» Creating Dynamic Internal Table and Dynamic Field catalog in SAP-ABAP
Fri Apr 27, 2012 11:00 am by Admin
» Copy Custom PF-Status from Standard program to Custom Program in ALV
Thu Apr 26, 2012 9:52 pm by Uma_ABAP
» Calculate/find number of working days between two dates in SAP
Tue Apr 24, 2012 2:06 pm by Uma_ABAP