SAP ABAP进度条显示

放置在数据处理的代码块中

DATA: lv_result TYPE p LENGTH 6 DECIMALS 2,
      lv_line  TYPE i.
DATA: lv_stxt TYPE string.
DATA: lv_restex TYPE char8.
lv_result = 0. lv_line = 5000.
DO lv_line TIMES.
  lv_result = sy-index * 100 / lv_line.
  lv_restex = lv_result.
  lv_stxt =  | 正在拼命加载中 : {  lv_restex } % ……  |.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = lv_result
      text       = lv_stxt.
ENDDO.

显示效果如下：

存在的BUG，当数据量超过某一阈值后，程序会宕掉，但是加入等待时间后，运行正常，目前推测是队列堵塞，具体原因有待查询。