A simple code of Progress Indicator

A simple code of progress indicator:

DATA: A LIKE SY-UCOMM.

DO 100 TIMES.
  DO 300 TIMES.
    GET TIME.
  ENDDO.
  A(3) = SY-INDEX.A+3 = '%'.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
            PERCENTAGE = SY-INDEX
            TEXT       = A.
ENDDO.