*&---------------------------------------------------------------------*

 *& 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.