ABAP处理等待显示效果

*&---------------------------------------------------------------------*
*& 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.