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.
display iCont.