p.s. In the below instance the release will clear the customer buffer and there will be a 'record not available' error with the DISPLAY statement, but the customer record remains locked.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
FOR EACH Customer where customer.custnu < 5 EXCLUSIVE-LOCK: /* 5...
DEFINE VARIABLE i AS INTEGER NO-UNDO.
FOR EACH Customer where customer.custnu < 5 EXCLUSIVE-LOCK: /* 5 Records */
i = i + 1.
customer.name = customer.name + Sting(i).
IF i = 3 THEN LEAVE.
PAUSE 25.
END.
DISPLAY customer.name.
If you reference customer outside a weakly scoped block (for each is...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.