W Pub: ABAP Rut SAYME

  1. * Ini : SAYME v 1.2 ------------------ 21.12.2004
  2. constants say_me_max type i value 10.
  3. data say_me_now type i value 0.
  4. define say_me.
  5.  check sy-batch is initial.
  6.  add 1 to say_me_now.
  7.  if say_me_now > say_me_max. say_me_now = 1. endif.
  8.  syst-PRCOP = 100.
  9.  if say_me_max ne 0.  syst-PRCOP = say_me_now * 100 / say_me_max. endif.
  10.  call function 'SAPGUI_PROGRESS_INDICATOR'
  11.  exporting  percentage = syst-PRCOP
  12.             text       = &1
  13.  exceptions others     = 1.
  14. end-of-definition.
  15. * Fin : SAYME v 1.2  ------------------ 21.12.2004
[$[Get Code]]