SAP显示处理进度

DATA: ll_lines(10),"行数

        ll_tabix(10),"循环标号

        ll_pecnt TYPE p LENGTH 6 DECIMALS 2,"百分比

        ll_pecet(6),"百分数

        ll_text(40)."消息

  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 * 100."已处理百分比

    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.