ABAP - 显示进度条

执行较长任务的时候，进度条能改善用户在等待时候的体验。在 ABAP 中显示进度条，是调用 SAPGUI_PROGRESS_INDICATOR 函数，示例如下：

report  z_progress_bar_demo.

perform do_sth_to_kill_time.
write : 'progress bar demo.'.

*&---------------------------------------------------------------------*
*&      Form  do_sth_to_kill_time
*&---------------------------------------------------------------------*
form do_sth_to_kill_time.

  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = 10
      text       = 'Please wait... '.

  perform frm_loop_100000000_times.

  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = 30
      text       = '30%, Please wait... '.

  perform frm_loop_100000000_times.

  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = 50
      text       = '50%, Please wait... '.

  perform frm_loop_100000000_times.

  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = 80
      text       = '80%, Almost OK... '.

endform.                    "do_sth_to_kill_time

*&---------------------------------------------------------------------*
*&      Form  frm_loop_100000000_times
*&---------------------------------------------------------------------*
form frm_loop_100000000_times.
  data: num type i  value 1.
  do 100000000 times.
    num = num + 1.
  enddo.
endform.                    "frm_loop_100000000_times