ABAP : Find factorial with loop

DATA Factorial TYPE I.
DATA Counter TYPE I.
DATA Result TYPE I.
Factorial = 7.
Counter = Factorial - 1.
result = Factorial.
do. "-------------------------- LOOP DO
  if Factorial = 1.
    exit.
  ELSE.
    result = result * Counter.
  ENDIF.
  Counter = Counter - 1.
  Factorial = Factorial - 1.
ENDDO.
*while Factorial > 1."--------- LOOP WHILE
*  result = result * Counter.
*  Counter = Counter - 1.
*  Factorial = Factorial - 1.
*ENDWHILE.

WRITE result.