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.