How to verify if a row is locked

25Mai09

It’s very common lock and unlock rows in Progress.
BTW… it happens all the time.

So… is very common check if a row is locked.
Let’s pratice…

Locking a row
FOR EACH MYTABLE
WHERE MYTABLE.cod = 1
EXCLUSIVE-LOCK:
UPDATE MYTABLE.desc.
END.

Checking if that row is locked
FIND FIRST MYTABLE
WHERE MYTABLE.cod = 1
EXCLUSIVE-LOCK NO-ERROR NO-WAIT.

IF LOCKED MYTABLE THEN
MESSAGE “lock” VIEW-AS ALERT-BOX.
ELSE
MESSAGE “ok” VIEW-AS ALERT-BOX.

Remember the no-wait in find-first.

Filed under: Progress   |  Leave a Comment
Tags: 4gl, abl, check, code, example, lock, no-wait, openedge, Progress, row, unlock