批导进度显示

DATA: perc TYPE i,
      cnt TYPE i .
DATA: stxt TYPE string.
DATA: sperc(3) TYPE c.
perc = 0. cnt = 100.
DO cnt TIMES.
  sperc = sy-index.
  CONCATENATE '已经完成 : '  sperc '，共 100' INTO stxt.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = perc     "百分比的数值，用来控制秒表的指针。
      text       = stxt.   "状态栏显示的文本。
ENDDO.