*&---------------------------------------------------------------------*
*& Report Z_EMPLOYEE_LIST_02
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
*LINE-SIZE: It determines how many columns to be displayed on the report page.
* 132 characters are default.
REPORT Z_EMPLOYEE_LIST_02.
* Arithmetic=============================================================
DATA INTEGER01 TYPE I VALUE 22.
DATA PACKED_DECIMAL01 TYPE P DECIMALS 1 VALUE '5.5'.
DATA RESULT LIKE PACKED_DECIMAL01.
* Addition-----------------------------------------------
WRITE / 'Addition'.
RESULT = INTEGER01 + PACKED_DECIMAL01.
WRITE / RESULT.
RESULT = INTEGER01 + 2.
WRITE / RESULT.
* SUBTRACTION-----------------------------------------
WRITE / 'Subtraction'.
RESULT = INTEGER01 - PACKED_DECIMAL01.
WRITE / RESULT.
* DIVISION--------------------------------------------
WRITE / 'Division'.
RESULT = INTEGER01 / PACKED_DECIMAL01.
WRITE / RESULT.
* MULTIPLICATION--------------------------------------
WRITE / 'MULTIPLICATION'.
RESULT = INTEGER01 * PACKED_DECIMAL01.
WRITE / RESULT.
* ADD, SUBTRACT, DIVIDE, MULTIPLY
WRITE / 'ADD, SUBTRACT, DIVIDE, MULTIPLY'.
ADD 8 TO RESULT.
WRITE / RESULT.
* Conversion Rule--------------------------------------
DATA NUM1 TYPE P DECIMALS 2 VALUE '3.33'.
DATA RESULT1 TYPE I.
RESULT1 = NUM1.
WRITE / RESULT1. " RESULT WILL BE 3
* DIVISION REMAINDER-----------------------------------
*DATA NUM2 TYPE P DECIMALS 2 VALUE '5.45'.
*DATA NUM3 TYPE P DECIMALS 2 VALUE '1.48'.
*RESULT2 = NUM2 DIV NUM3. INTEGER DIVISION
DATA NUM2 TYPE P DECIMALS 2 VALUE '5.45'.
DATA NUM3 TYPE P DECIMALS 2 VALUE '1.48'.
DATA RESULT2 TYPE P DECIMALS 2.
RESULT2 = NUM2 MOD NUM3.
WRITE / RESULT2.
'SAP > ABAP 코드' 카테고리의 다른 글
ABAP - IF & CASE (0) | 2021.05.24 |
---|---|
ABAP - BASIC SQL STATEMENT (0) | 2021.05.24 |
ABAP - DATE & TIME & CURRENCY & QUANTITY (0) | 2021.05.24 |
Character & String (0) | 2021.05.24 |
ABAP - Variable / Constants (0) | 2021.05.24 |