ABAP进度条

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


*进度条例子2：


DATA: sText(70).
DATA: iTmp type i.
sText = '你是我的小呀小苹果儿 怎么爱你都不嫌多 红红的小脸儿温暖我的心窝 点亮我生命的火 火火火火 你是我的小呀小苹果儿 就像天边最美的云朵 春天又来到了花开满山坡 种下希望就会收获'."
DO 50 TIMES.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  EXPORTING
      percentage = sy-index     "百分比的数值，用来控制秒表的指针。
      text       = sText+0(sy-index).   "状态栏显示的文本。

   wait up to 1 SECONDS.
ENDDO.