abap 程序运行小工具

一、提醒框：

  DATA: l_line(10),
        l_percent(6),
        l_text(40).
  DESCRIBE TABLE itab LINES g_lines.
  CONCATENATE '确认总共是' g_lines '条物料吗？' INTO g_text.
  CONDENSE g_text.
  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
    EXPORTING
      textline1 = g_text
      titel     = '确认'
    IMPORTING
      answer    = g_answer.
  CASE g_answer.
    WHEN 'J'.
    WHEN OTHERS.
      RETURN.
  ENDCASE.

二、小时钟

    TRANSLATE itab-lgort TO UPPER CASE.
    l_line = l_line + 1.
    l_percent = l_line * 100 / g_lines.
    CONCATENATE '已完成' l_line '条/' g_lines '条' INTO l_text.
    CONDENSE l_text.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = l_percent
        text       = l_text.
    CLEAR: l_percent,l_text.

INITIALIZATION.
  g_repid = sy-repid.  "初始化g_repid 字段

START-OF-SELECTION.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = '数据处理中，请稍后...'.
  PERFORM get_data.    "查询数据
  PERFORM disp_data.   "alv展示