*&---------------------------------------------------------------------*
*& Report ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztest .
DATA : lv_per TYPE char20.
DATA : text TYPE char50.
DO 999 TIMES.
lv_per = sy-index .
CONCATENATE ' Please wait...' lv_per INTO text.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
text = text.
ENDDO.
DO 999 TIMES.
text = 'Process finish!'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
text = text.
ENDDO.