*&---------------------------------------------------------------------*
*& Report Z12_18
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z12_18.

START-OF-SELECTION.

  SELECT *
    FROM ZEMPLIST
    ORDER BY EMPCD
    INTO TABLE @DATA(LT_ZEMPLIST).

  DATA(LV_TOTAL) = LINES( LT_ZEMPLIST ).

  LOOP AT LT_ZEMPLIST INTO DATA(LS_ZEMPLIST).

    PERFORM PROGRESS_INDICATOR
      USING
        SY-TABIX
        LV_TOTAL
        'Progressing.... '.

    WRITE: / LS_ZEMPLIST-EMPCD , LS_ZEMPLIST-ENAME.

  ENDLOOP.

FORM PROGRESS_INDICATOR
  USING
    VALUE(P_CNT)
    VALUE(P_TOTAL)
    VALUE(P_TEXT).

  DATA:
    LV_IDX TYPE I.

  LV_IDX = ( P_CNT / P_TOTAL ) * 100.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE = LV_IDX
      TEXT       = |{ LV_IDX }% : { P_TEXT }|
    EXCEPTIONS
      OTHERS     = 0.
ENDFORM.       " progress_indicator