Code: Alles auswählen.
REPORT zuebung_bd_006.
PARAMETERS: p_rekz TYPE i.
DATA: gv_test1 TYPE i VALUE 1, gv_test2 VALUE 1.
START-OF-SELECTION.
PERFORM main.
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM main.
IF gv_test1 < p_rekz.
gv_test2 = gv_test2 * gv_test1.
ADD 1 TO gv_test1.
PERFORM main.
ELSE.
WRITE gv_test2.
ENDIF.
ENDFORM. "main