PROGRESS 4GL Freeze after APPLY "Enter"

[Wiktor]

I update some fields with external procedure ( i cannot modify base program ) .

I try to jump over field I need, but on one, my program is freezing. The procedure looks like that:

PAUSE 0 NO-MESSAGE.

IF FOCUS = field1
THEN DO:
field1:screen-value = ''.
APPLY 'ENTER' .
PAUSE 0 .
END.

IF FOCUS = field2
THEN DO:
field2:screen-value = 'U'.
APPLY 'ENTER' .
PAUSE 0 .
END.

IF FOCUS = field3
THEN DO:
field3:screen-value = 'N'.
APPLY 'ENTER' .
PAUSE 0 .
APPLY 'ENTER' .
PAUSE 0.
END.

PAUSE 0.


I put PAUSE 0, because its solve similiar case when I was in field2, but in field3 its not working. What others step I can make? Thank You for answers. Regards.

e: When i said "Freeze" i mean Its waiting for any key. After 'any key' it goes onwards. Its problem, because i neet to automatize evrything .

e: And now i guess its not after APPLY statement but in some moment when i jumping over the fields. When i normally use the original program this freeze/waiting for key is unseen. So what in the code above can cause such an effect?

e: Its after APPLY "ENTER" on specific fields. Not for evry but some fields causes freezing ( not with Press Space message ). Pause 0 not working for them.

e: After using only this code :

IF FOCUS = field1
THEN DO:
APPLY 'ENTER' .
APPLY 'COMPLETE' TO FOCUS.
PAUSE 0.
MESSAGE 'dfdfd' VIEW-AS ALERT-BOX.
END.


Its freezing after showing the message. Dont know why...

Continue reading...