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."將內(nèi)表的條目數(shù)給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.