Consultor Eletrônico



Kbase P55998: PAUSE statement is ignored in persistent procedures
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   19/01/2011
Status: Verified

SYMPTOM(s):

PAUSE statement is ignored in persistent procedures.

UIB runs code persistenly

FACT(s) (Environment):

Progress 8.2x
Progress 8.3x
Progress 9.x

CAUSE:

This is a known issue being investigated by Development

FIX:

Following are some possible solutions:
1. Display a message in the status area:

run start.

PROCEDURE start :
def var i as int no-undo.

do while true:
i = i + 1.
disp i.
PAUSE 3 MESSAGE "Pausing 3 seconds".
end.

end.


2. Use Wait-for statement instead of PAUSE:

run start.

PROCEDURE start :
def var i as int no-undo.

do while true:
i = i + 1.
disp i.
WAIT-FOR CLOSE OF THIS-PROCEDURE PAUSE 3.
end.
end.


3. Use READKEY with PAUSE option:

run start.

PROCEDURE start :
def var i as int no-undo.

do while true:
i = i + 1.
disp i.
/* display the PAUSE message in the status area */
status input "Pausing 3 second(s). Press space bar to continue".

READKEY PAUSE 3 .
IF LASTKEY = KEYCODE(" ") then return.
end.
end.