subroutine /changing
REPORT zcalculator.
DATA result TYPE i.PARAMETERS opt1 TYPE i.
PARAMETERS opt2 TYPE i.
new-line.
write: 'opt before', opt1.
PERFORM testing_parameters USING result changing opt1 opt2.
new-line.
write: 'opt after', opt1.
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_opt1.
Write: 'opt1', p_opt1.
ENDFORM.
Comments
Post a Comment