Reloj de progreso ABAP

REPORT Z_PROGRESS_CLOCK.

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.