Индикатор выполнения

Привожу пример кода который позволяет выводить индикатор выполнения задачи

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