Evitar sensación de programa colgado/tildado en Progress 4GL mostrando cursor reloj de arena

El escenario es el siguiente: Tenemos 1 proceso progress 4GL que demora mucho en realizar una cierta tarea. El usuario percibe desde su perspectiva la sensación de "tildado" pues el programa no le responde.

¿Cómo hacemos para mostrar 1 reloj de arena mientras el programa procesa? De la siguiente forma: SESSION:SET-WAIT-STATE("GENERAL").



<< resto del codigo progress >>



SESSION:SET-WAIT-STATE("").



De esta forma al ingresar al programa, el usuario verá un reloj de arena mientras procesa. Así sabrá que el programa está en actividad y no tildado ni colgado. La 2da instruccion elimina el reloj de arena

Yo lo uso todo el tiempo cuando tengo que hacer un programa complejo.

saludos,

W.