subroutine / reference

 REPORT zcalculator.

DATA result TYPE i.

PARAMETERS opt1 TYPE i.
PARAMETERS opt2 TYPE i.

new-line.
write: 'opt before', opt2.
PERFORM testing_parameters USING result changing opt1 opt2.
new-line.
write: 'opt after', opt2.

FORM testing_parameters  USING VALUE(p_result) "by value
                         CHANGING value(p_opt1) "by value and result
                                  p_opt2. "by reference
  add 1 to p_opt2.
  Write: 'opt', p_opt2.
ENDFORM.