REPORT  z15_016                                                     .

DATA: g_total TYPE i,
      g_cnt TYPE i,
      g_index type i.
DATA : gt_sflight TYPE TABLE OF sflight WITH HEADER LINE.

START-OF-SELECTION.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE gt_sflight
FROM sflight.
DESCRIBE TABLE gt_sflight LINES g_total.
LOOP AT gt_sflight.
  g_cnt = g_cnt + 1.
  PERFORM progress_indicator
          USING g_cnt g_total ' Progressing... '.
ENDLOOP.

WRITE 'SUCCESS'.

*&--------------------------------------------------------------------*
*&      Form  progress_indicator
*&--------------------------------------------------------------------*
FORM progress_indicator USING    value(p_cur)
                                 value(p_total)
                                 value(p_text).
  DATA : text(50) TYPE c,
         idx1(3)  TYPE n.

  IF p_cur > p_total.
    idx1 = 100.
  ELSE.
    idx1 = ( p_cur / p_total ) * 100.
  ENDIF.

  CHECK g_index <> idx1 OR g_index IS INITIAL.
  g_index = idx1.
  CONCATENATE idx1 ' % : ' p_text INTO text.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = idx1
      text       = text
    EXCEPTIONS
      OTHERS     = 0.

ENDFORM.                    " progress_indicator