How to create a graphical progress bar

 REPORT ZPROGRESS_POP .
data: val type i.
data event(6) type c.

val = 0.
do 4 times.

   val  = val + 25.

   CALL FUNCTION 'PROGRESS_POPUP'
    EXPORTING
         BTN_TXT     = 'CANCEL'
         CURVAL      =  val
         MAXVAL      =  100
         STAT        = '1'
         TEXT_1      = 'Text 1'
         TEXT_2      = 'Text 2'
         TEXT_3      = 'Text 3'
         TITLE       = 'Progress Bar in Pop Up Window '
         WINID       =  100
    IMPORTING
         POPUP_EVENT = event.
enddo.


CALL FUNCTION 'PROGRESS_POPUP'
    EXPORTING
         STAT        = '2'
         WINID       =  100.

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