|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
REPORT ZPROGRESS_INDICATOR. DATA: go_progress TYPE REF TO CL_AKB_PROGRESS_INDICATOR. CONSTANTS: co_max_times TYPE I VALUE 100000. INITIALIZATION. IF go_progress IS NOT BOUND. go_progress = CL_AKB_PROGRESS_INDICATOR=>get_instance( ). ENDIF. START-OF-SELECTION. WRITE 'TEST'. DO co_max_times TIMES. go_progress->display( EXPORTING total = co_max_times processed = sy-INDEX MESSAGE = 'В процессе..' ). ENDDO. |