ABAP处理等待显示效果

来源:互联网 发布:淘宝卖家中心 首页 编辑:程序博客网 时间:2024/05/17 03:14
*&---------------------------------------------------------------------*
*& Report  ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztest .
DATA : lv_per TYPE char20.
DATA : text TYPE char50.

DO 999 TIMES.
  lv_per = sy-index .
  CONCATENATE ' Please wait...' lv_per INTO text.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = text.

ENDDO.

DO 999 TIMES.
text = 'Process finish!'.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  EXPORTING
    text = text.
ENDDO.

原创粉丝点击