Recursive perform statement sample

This source is the example of Recursive Perform Statement.

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
This was last published in April 2002

Dig Deeper on SAP ABAP

PRO+

Content

Find more PRO+ content and other member only offers, here.

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchManufacturingERP

SearchOracle

SearchDataManagement

SearchAWS

SearchBusinessAnalytics

SearchContentManagement

SearchFinancialApplications

Close