Recato53, no entiendo bien cómo lees tan deprisa algo de un CmText, pero bueno. Siempre que haya problemas de "no dar tiempo", antes del
O en general, sea lo que sea, al final de cada iteración del bucle, debes hacer:
Código COBOL:
INVOKE POW-SELF "ThruEvents"