ABAP Function SAPGUI_PROGRESS_INDICATOR

SAPGUI_PROGRESS_INDICATOR

Display progress indicator in current window

 

FORM frm_delete_zglzzt0030 .
  DATA: l_perc TYPE int1,
        l_line TYPE int4.

  l_line = LINES( it_zglzzt0010 ).
  LOOP AT it_zglzzt0010 INTO iw_zglzzt0010.

    l_perc = sy-tabix * 100 / l_line .
    PERFORM frm_gui_process USING l_perc.
    DELETE FROM zglzzt0030 WHERE zzpath = iw_zglzzt0010-bukrs
                        AND zzfil = iw_zglzzt0010-zzfil.
    IF sy-subrc = 0.
      COMMIT WORK.
      WRITE:/ cos_suc,sy-dbcnt, iw_zglzzt0010-bukrs, iw_zglzzt0010-zzfil.
    ELSE.
      ROLLBACK WORK.
      WRITE:/ cos_fai,iw_zglzzt0010-bukrs, iw_zglzzt0010-zzfil.
    ENDIF.
  ENDLOOP.
ENDFORM.    

*----- ----------------------------------------------------------------*
FORM frm_gui_process USING f_perc.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = f_perc
      text       = text-009.             "正在删除数据
ENDFORM.                    "frm_gui_process