REPORT zeps_progress_pop .

DATA: val TYPE i.

DATA event(6) TYPE c.

val = 0.
DO 100 TIMES.

  val  = val + 1.

  CALL FUNCTION 'EPS_PROGRESS_POPUP'
       EXPORTING
            btn_txt     = 'CANCEL'
            curval_g2   = val
            layout      = '1'
            maxval_g2   = '100'
            popup_link  = 'ASYNC'
            popup_stat  = '1'
            popup_title = 'SAP'
            text_1      = 'TEXT 1'
            text_2      = 'TEXT 2'
            text_3      = 'TEXT 3'
            text_4      = 'TEXT 4'
            text_g1     = 'TEXT G1'
            text_g2     = 'TEXT G2'
            title_g2    = 'TITLE G2 '
            winid       = 100.

  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDDO.

PERFORM closegraph.

************************************************************
FORM closegraph.
  CALL FUNCTION 'PROGRESS_POPUP'
       EXPORTING
            stat  = '2'
            winid = 100.

  CALL FUNCTION 'GRAPH_DIALOG'
       EXPORTING
            close = 'X'.

ENDFORM.
************************************************************