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

DEF VAR xuser-id AS CHAR NO-UNDO.
DEF VAR xlock AS CHAR FORMAT "x(32)" NO-UNDO.

DEF TEMP-TABLE tt_lock LIKE _lock.


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

REPEAT:
  EMPTY TEMP-TABLE tt_lock.

  DISPLAY " Flags: (S)hared e(X)clusive (U)pgraded (Q)ueued"
          "(L)imbo (P)urged (H)old" SKIP
          "        (IX)intent exclusive (IS)intent shared (SIX)shared"
          "intent exclusive "
    WITH FRAME y ROW 10 NO-LABELS CENTERED WIDTH 78.
  
  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.

        DISPLAY _file._file-name LABEL "Table"     COLON 10
                _file._file-number LABEL "Number"  COLON 52
                tt_lock._lock-name LABEL "User-id" COLON 10
                tt_lock._lock-usr LABEL "User"     COLON 32
                tt_lock._lock-type LABEL "Type"    COLON 10
                tt_lock._lock-flags LABEL "Flags"  COLON 32
                tt_lock._lock-recid LABEL "Recid"  COLON 52
                IF AVAIL _trans THEN "Locked on " + _trans._trans-txtime
                ELSE "" NO-LABEL FORMAT "x(40)"    COLON 10
          WITH 1 DOWN FRAME x ROW 4 SIDE-LABELS CENTERED WIDTH 78
            TITLE " LOCK TABLE STATUS ".
        PAUSE 2.
      END.
    END.
    ELSE DO:
      CLEAR FRAME x.
      LEAVE.
    END.
  END.

  PAUSE 2 MESSAGE "Starting Over...".
END.

/* end of program */