ABAP Programs: Recursive calls

REPORT ZSOURCE1011.
* Variable for later use
DATA: NUMBER TYPE I VALUE 5,
RESULT TYPE I VALUE 1.
* Calling a form from the main program
PERFORM FACTORIAL.
WRITE RESULT.

* Defining a form with a recursive call
FORM FACTORIAL.
IF NUMBER <= 1.
EXIT.
ENDIF.
RESULT = RESULT * NUMBER.
NUMBER = NUMBER – 1.
PERFORM FACTORIAL.
ENDFORM.