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.