标签：perc index cnt 进度条 stxt ABAP DATA sperc
*进度条例子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.
标签：perc,
index,
cnt,
进度条,
stxt,
ABAP,
DATA,
sperc
From： https://blog.51cto.com/u_8215601/7508961