Pass by Reference

Ex:

Steps

• Go to transaction code SE38.

• Enter the program name start's with Y or Z<program name > and click on create button.

• Enter the Title.
• Select Attribute Type as Executable Program.
• Click on save button.

• Either save it in Package or Local Package.

Source Code

DATA : FACT TYPE I.

PARAMETERS : NUM TYPE I.

PERFORM FACTORIAL USING NUM CHANGING FACT.

WRITE : 'FACTORIAL OF ', NUM , '=', FACT.
*&---------------------------------------------------------------------*
*&      Form  FACTORIAL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_NUM  text
*      <--P_FACT  text
*----------------------------------------------------------------------*
form FACTORIAL  using    p_num
                changing p_fact.

P_FACT = 1.

WHILE P_NUM >= 1..

 p_fact = p_fact * P_NUM.

 P_NUM = P_NUM - 1.
ENDWHILE.
endform.                    " FACTORIAL

-------------------------------------------------------------

• Save -> Check -> Activate.

• Execute.

Input

Output

Note : Variable value has been changed. So pass the variable using  pass by Value.