Recursive perform statement sample

This source is an example of Recursive Perform Statement. This is not a useful source for your project, but for thosewho studies Recursive Perform Statements, this can be a useful example of ABAP Recursive Perform Statement.

*Writen By Hakchin.
*We can get the factorial of number 5.
*5*4*3*2*1=120

DATA fa TYPE p VALUE 5.
DATA result TYPE p.
BREAK-POINT.
PERFORM factorial USING    fa
                  CHANGING result.
WRITE:/ fa, / result.
*&---------------------------------------------------------------------*
*&      Form  factorial
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_FA  text
*      <--P_RESULT  text
*----------------------------------------------------------------------*
FORM factorial USING    value(p_fa)
               CHANGING value(p_result).
  DATA l_fa TYPE p.
  p_result = l_fa = p_fa.
  p_fa = p_fa - 1.
  IF p_fa > 1.
    PERFORM factorial USING    p_fa
                      CHANGING p_result.
  ENDIF.
  IF p_fa = 1.
    p_result = p_result * p_fa.
  ELSE.
    p_result = p_result * l_fa.
  ENDIF.
ENDFORM.                    " factorial


Output:
              5
            120