data:PERC TYPE I,
CNT TYPE I.
DATA: ZTEXT TYPE STRING,
ZPERC(3) TYPE c.
PERC = 0.
CNT = 1000.
"DESCRIBE TABLE Gt_AUFK LINES CNT."将内表的条目数给CNT
do CNT TIMES.
ZTEXT = ''.
PERC = sy-index * 100 / CNT.
ZPERC = PERC.
CONCATENATE '已完成' ZPERC '%' into ZTEXT.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = PERC
TEXT = '正在处理,请稍后'
.
ENDDO.