Reloj de proceso y mensaje en barra de estatus

La función SAPGUI_PROGRESS_INDICATOR imprime el reloj de proceso en la barra de estatus y el mensaje que se indique. En el siguiente ejemplo, se buscan todas las transacciones a las que no tiene permiso el usuario que ejecuta el código. Mientras se muestra el progreso de la búsqueda mediante el reloj el cual se actualiza cada 25% para que el refresco de pantalla no sea incómodo:

DATA: code TYPE tcode, text TYPE ttext_stct, str TYPE string, l_total TYPE i, l_percent_old TYPE i, l_percent_new TYPE f, cont TYPE i. " registros de la base de datos SELECT COUNT( * ) INTO l_total FROM tstc. l_percent_old = 25. cont = 1. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = 5 text = 'Buscando transacciones erróneas'. SELECT tcode ttext INTO (code, text) FROM tstct WHERE sprsl = 'S' ORDER BY tcode DESCENDING. l_percent_new = ( cont / l_total ) * 100. IF l_percent_new > l_percent_old. " se actualiza cada 25% l_percent_old = l_percent_old + 25. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = l_percent_new text = 'Buscando transacciones sin permiso'. ENDIF. cont = cont + 1. " Se comprueba para qué transacciones no se tiene autorización AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD code. IF sy-subrc <> 0. CONCATENATE 'No Tienes permiso para la tx.' code '-' text INTO str. WRITE: / str. ENDIF. ENDSELECT.