ABAP progress indicator utility instance

Progress indicator is often used in ABAP programming. Now I will describe this function in detail and let's look at two more instances.

Function Name: sapgui_progress_indicator

Function Group: sgui
Parameter: Import: Percentage progress percentage
: Text description

Use instance 1: display progress
Report z_demo1.
Data: A like SY-UCOMM.
Do 100 times.
Do 300 times. "Do A Time Delay
Get time.
Enddo.
A (3) = SY-INDEX.A + 3 = '%'. "percentage of progress obtained
Call function 'sapgui _ progress_indicator'
Exporting
Percentage = SY-INDEX
TEXT =.
Enddo.

Use instance 2: display the sliding primary stream
Report z_demo2.
Data: Message (30) value 'Waiting for an answer '.
Do 100 times.
Do 300 times.
Get time.
Enddo.
Shift message circular right.
Call function 'sapgui _ progress_indicator'
Exporting
Percentage =''
TEXT = message.
Enddo.