Abap Code Prime Number

Code : 

Report Prime_no.

 PARAMETERS: p_from TYPE i,

                             p_to   TYPE i.

DATA: v_from      TYPE i,

            v_to        TYPE i,

            v_remainder TYPE i,

           v_is_prime  TYPE c,

           v_divisor   TYPE i.

START-OF-SELECTION.

  v_from = p_from.

  v_to   = p_to.

  DO.

    IF v_from = v_to.

      EXIT.

    ENDIF.

    CLEAR v_is_prime.

    DO v_from TIMES.

      v_divisor = sy-index.

      v_remainder = v_from MOD v_divisor.

      IF v_divisor <> 1      AND

         v_divisor <> v_from AND

         v_remainder = 0.

*-- not a prime

        v_is_prime = 'N'.

        EXIT.

      ENDIF.

    ENDDO.

    IF v_is_prime IS INITIAL.

*-- the number is prime 

      WRITE:/ v_from.

    ENDIF.

    v_from = v_from + 1.

  ENDDO.

*****************************************************************

Result :