Showing a progress bar in ABAP(Timer Clock)

REPORT zdany_progress_bar.
DATA p_text(5) TYPE c." LENGTH 5.
DO 3 TIMES.
WAIT UP TO '0.5' SECONDS.
p_text(3) = sy-index.
p_text+3 = '%'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = sy-index
text = p_text.
ENDDO.