Progress Bar.

[Former Member]

Hi Experts!!

I want to set "progress bar" while executing my ABAP program.

or " Wait... Your request being processed" In the center of the window.

Anybody help me out with sample code.

Thanks in advance.

[Former Member]

Hi,

try this code,

REPORT ZGUIBAR.

DATA: A LIKE SY-UCOMM.

DO 100 TIMES.

DO 300 TIMES.

GET TIME.

ENDDO.

A(3) = SY-INDEX.A+3 = '%'.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

PERCENTAGE = SY-INDEX

TEXT = A.

ENDDO.

[Former Member]

Hi Anil,

Try below one.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' "B20K8A0GP1

EXPORTING

text = 'Pass your text here '(010).

Regards,

Kishore

[Former Member]

Hi I want the same should come as pop_up window in the centre of the window like BSP Application.

Thanks

[Former Member]

Anil,

i think it is not possible.

Satish

[Former Member]

Anil,

do like this

DO 100 TIMES.

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

percentage = sy-index

text = sy-index.

ENDDO.

<b>Reward points if it helps,</b>

Satish

[Former Member]

hi

good

you need to call the function module SAPGUI_PROGRESS_INDICATOR to show the progress indicator

thanks

mrutyun^

[Former Member]

If you check this below link. Loading page....

Can we write same in ABAP for loading Screen ?

/people/artem.gratchev/blog/2005/02/02/1001-mistake-in-bsp-programing-1-reaction-time

[Former Member]

Hi,

refer to the following link:

http://sapdev.co.uk/reporting/indhome.htm

Hope this helps.

Reward if helpful.

Regards,

Sipra

[Former Member]

Hi Anil

I am going to give you the best answer for this :

Use this function module just before output......

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

text = 'Wait, Generating....'

EXCEPTIONS

OTHERS = 1.

You will surely get want you are looking for.....

Please reward if it is useful.

Rohit G

[Former Member]

Hi Anil

For Pop Up window, with your own text.....

You can use this ...

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

titel = 'Process Discontinued'(006)

txt1 = 'No Payroll Results available for'(007)

txt2 = 'employee/employees selected for this criteria'(008)

EXCEPTIONS

OTHERS = 1.

Kindly Reward if useful.

Rohit G