abap calc with a percentage

REPORT Z_NAAME_COPY_SOLUTION6.

TYPES gty_result TYPE p LENGTH 16 DECIMALS 2.


PARAMETERS: pa_int1 TYPE i,
pa_int2 TYPE i,
pa_op TYPE c LENGTH 1 .

DATA gv_result TYPE p LENGTH 16 DECIMALS 2  .

IF ( pa_op = '+' OR
  pa_op = '-' OR
  pa_op = '*' OR
  pa_op = '/' AND pa_int2 <> 0  OR
  pa_op = '%').

CASE pa_op.
  WHEN '+'.
    gv_result = pa_int1 + pa_int2.

     WHEN '-'.
    gv_result = pa_int1 - pa_int2.

     WHEN '*'.
    gv_result = pa_int1 * pa_int2.

     WHEN '/'.
    gv_result = pa_int1 / pa_int2.

    WHEN '%'.

      PERFORM calc_precentage
      USING
            pa_int1
            pa_int2
            CHANGING
              gv_result.

ENDCASE.
 " -,
  "*,
  "/ .

WRITE: 'Result: ', gv_result . WRITE '%'.

ELSEIF pa_op = '/' AND pa_int2 = 0.
  WRITE 'no division by zero' .
ELSE.

ENDIF .


FORM calc_precentage USING pv_act TYPE i
                           pv_max TYPE i
                     CHANGING cv_result TYPE gty_result .

  IF pv_max = 0.
    cv_result = 0.
    WRITE 'error in precentage calculation'.

    ELSE.
      cv_result = pv_act / pv_max * 100.
      ENDIF.

      ENDFORM. "calc precentage