USING the LOCKED FUNCTION in Progress…

Syntax
LOCKED record

Example
FIND FIRST SUCURSAL
WHERE SUCURSAL.COD-SUCURSAL = ’12’
EXCLUSIVE-LOCK NO-ERROR NO-WAIT.

IF LOCKED SUCURSAL THEN
MESSAGE “Locked…” VIEW-AS ALERT-BOX.
ELSE
MESSAGE “Not locked…” VIEW-AS ALERT-BOX.

😀