DATA: ll_lines(),"行数

        ll_tabix(),"循环标号

        ll_pecnt TYPE p LENGTH  DECIMALS ,"百分比

        ll_pecet(),"百分数

        ll_text()."消息

  CLEAR: ll_lines,ll_tabix,ll_pecnt,ll_pecet,ll_text.

  DESCRIBE TABLE it_vbrk LINES ll_lines."获取内表行数

*

  LOOP AT it_vbrk INTO wa_vbrk.

    ll_tabix = sy-tabix."当前处理的行号

    ll_pecnt = ll_tabix / ll_lines * ."已处理百分比

    ll_pecet = ll_pecnt.

"拼接显示消息

    CONCATENATE '已完成' ll_pecet '%,共' ll_tabix '条/' ll_lines '条' INTO ll_text.

    CONDENSE ll_text."整理格式，去掉多余空格，格式更整齐

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'"调用进度条函数，传入百分比和消息

      EXPORTING

        percentage = ll_pecnt

        text       = ll_text.

        CLEAR: ll_pecnt,ll_pecet,ll_text.

……

ENDLOOP.