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.