Progress 10.1B is going to have a new block control feature called STOP-AFTER.
It’s a improvement, but I think we waited too long for this feature.
I don’t know your needs, but for me it will be very useful in webservices calling.
Anyway, it works and thanks Progress Software.
define variable iCont as integer no-undo.
do while true stop-after 1 on stop undo, leave:
assign iCont = iCont + 1.