Hi All,
This document on 'Progress Bar Creation' will explain the simplest way of creating Progress Bar.
You can change the code as per your requirement.
What is Progress Bar:
The progress indicator adds a small timer in the lower left corner of the SAP screen. It not only provides the user with an indication of percentage completeness but also stops reports timing out. It does this by resetting the timeout timer whenever it is called.
Sample code for Progress bar usage.
REPORT Z_PROGRESS_BAR.
*Structure
TYPES: BEGIN OF T_BKPF,
BELNR TYPE BELNR_D,
END OF T_BKPF.
*Internal Table and Workarea
DATA: IT_BKPF TYPE STANDARD TABLE OF T_BKPF,
WA_BKPF TYPE T_BKPF.
*Data declaration
DATA: BKPF_LINES TYPE I,
GD_PERCENT TYPE I.
*Start-of-selection event
START-OF-SELECTION.
*Get Document number from BKPF
SELECT BELNR
INTO TABLE IT_BKPF
FROM BKPF.
CHECK SY-SUBRC EQ 0.
"Get the total number of records
BKPF_LINES = SY-DBCNT.
CLEAR GD_PERCENT.
LOOP AT IT_BKPF INTO WA_BKPF.
"Form routine for Progress Bar
PERFORM PROGRESS_BAR USING 'Retrieving data....'(001)
SY-TABIX
BKPF_LINES.
ENDLOOP.
WRITE:/20 'Report is "Complete" OK'.
*&---------------------------------------------------------------------*
*& Form PROGRESS_BAR
*&---------------------------------------------------------------------*
FORM PROGRESS_BAR USING P_VALUE
P_TABIX
P_NLINES.
DATA: W_TEXT(40),
W_PERCENTAGE TYPE P,
W_PERCENT_CHAR(3).
W_PERCENTAGE = ( P_TABIX / P_NLINES ) * 100.
W_PERCENT_CHAR = W_PERCENTAGE.
SHIFT W_PERCENT_CHAR LEFT DELETING LEADING ' '.
CONCATENATE P_VALUE W_PERCENT_CHAR '% Complete'(002) INTO W_TEXT.
*This check needs to be in, otherwise when looping around big tables
*SAP will re-display indicator too many times causing report to run
*very slow. (No ned to re-display same percentage anyways)
IF W_PERCENTAGE GT GD_PERCENT
OR P_TABIX EQ 1.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = W_PERCENTAGE
TEXT = W_TEXT.
GD_PERCENT = W_PERCENTAGE.
ENDIF.
ENDFORM. " PROGRESS_BAR
Thanks,
Anamika
