REPORT  z02_04.

DATA: gv_int1     TYPE i VALUE 2.
DATA: gv_int2     TYPE i VALUE 3.
DATA: gv_iresult   TYPE i.

gv_iresult = gv_int1 + gv_int2.
WRITE : / '1 : ', gv_iresult.

ADD 1 TO gv_iresult.
WRITE : /  '2 : ', gv_iresult.

DATA: gv_pack1    TYPE p DECIMALS 2 VALUE '2.17'.
DATA: gv_pack2    TYPE p DECIMALS 2 VALUE '5.43'.
DATA: gv_presult   TYPE p DECIMALS 2.

gv_presult = gv_pack2 / gv_pack2.
WRITE : / '3 : ', gv_presult.

MULTIPLY gv_presult by gv_pack2.
WRITE : / '4 : ', gv_presult.

DATA: gv_float1   TYPE f VALUE '1.337'.
DATA: gv_float2   TYPE f VALUE '2.7'.
DATA: gv_fresult  TYPE f .
DATA: gv_cresult  TYPE c LENGTH 16.

gv_fresult = gv_float2 * gv_float1.
WRITE : / '5 : ', gv_fresult.

CALL FUNCTION 'FLTP_CHAR_CONVERSION'
 EXPORTING
   DECIM         = 2
   INPUT         = gv_fresult
 IMPORTING
   FLSTR         = gv_cresult.

WRITE : / '6 : ', gv_cresult.