程序运行进度条提示

CONCATENATE '当前进度为：工厂 -  ' I_MAST-WERKS '；物料 -  ' I_MAST-MATNR
                '。 已经完成 ' L_ENTRIES
                '/' L_TOTAL
                ' 的BOM展开.'
           INTO  STR_MESSAGE.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'               "n732471
        EXPORTING                                           "n732471
          PERCENTAGE = 1
          TEXT       = STR_MESSAGE.