/* xrec-lock.p dps 09/16/05 */

DEF VAR xuser-id AS CHAR NO-UNDO.

DEF TEMP-TABLE tt_lock LIKE _lock.


xuser-id = "*" /* USERID*/ .
UPDATE xuser-id LABEL "User-id" WITH CENTERED SIDE-LABELS.

FOR EACH _lock NO-LOCK:
  IF _lock._lock-usr <> ? THEN DO:
    FIND _file WHERE _file._file-number = _lock._lock-table NO-LOCK NO-ERROR.

    IF AVAIL _file AND (_lock._lock-name = xuser-id
      OR xuser-id = "" OR xuser-id = "*") THEN DO:
      CREATE tt_lock.
      BUFFER-COPY _lock TO tt_lock.

      FIND FIRST _trans WHERE _trans._trans-usrnum = tt_lock._lock-usr
        NO-LOCK NO-ERROR.

      MESSAGE "Table:" _file._file-name " Number:" _file._file-number SKIP
        "User-id:"tt_lock._lock-name " User:" tt_lock._lock-usr SKIP
        "Type:" tt_lock._lock-type " Flags:" tt_lock._lock-flags
        "RECID:" tt_lock._lock-recid SKIP
        IF AVAIL _trans THEN "Locked on " + _trans._trans-txtime ELSE ""
        VIEW-AS ALERT-BOX.
    END.
  END.
  ELSE LEAVE.
END.

/* end of program */