SAP 自定义进度条

 *&---------------------------------------------------------------------*
 *& Report  ZCHENH028
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*

 REPORT zchenh028.

 DATA:count TYPE string.  " 内表总数据条数
 DATA:msg   TYPE string.    " 显示的消息
 DATA:index TYPE string.  " 当前处理的索引

 DATA:BEGIN OF gt_tab  OCCURS ,
       col1 TYPE string,
      END OF gt_tab .

 " 插入100条空数据
 DO  TIMES.
   APPEND gt_tab.
 ENDDO.
 DESCRIBE TABLE gt_tab LINES count.

 *  进度条显示
 LOOP AT gt_tab.
   CLEAR:msg,index.
   index = sy-tabix.
   CONCATENATE '正在处理。。。'  index '/' count INTO msg. " 拼接消息
   index = index / count * .  " 时钟显示的百分比

   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
       percentage = index " 处理的百分比
       text       = msg.
 ENDLOOP.

效果如图：