FUNCTION RecordShareLockedBy RETURNS CHARACTER
  (INPUT ipRecID AS RECID, OUTPUT opLockType AS CHAR):
  /* Only Works When One Database is Connected, Modify to Support Multiple */
  /* Databases and Where the RECID Exists in More Than One Table           */
  DEF VAR iLoop  AS INTEGER NO-UNDO.
  DEF VAR iRecID AS INTEGER NO-UNDO.

  iRecID = INTEGER(ipRecID).
  FOR EACH _UserLock NO-LOCK WHERE _UserLock-Name <> ?:
    DO iLoop = 1 TO 512:
      IF _UserLock-Recid[iLoop] = iRecID AND _UserLock-Flags[iLoop] <> ?
        THEN DO:
        FIND FIRST _Connect WHERE _Connect-Usr = _UserLock-Usr NO-LOCK.
        opLockType = _UserLock-Flags[iLoop].
        RETURN _Connect-Name. 
      END.
    END.
  END.

  RETURN ''.
END FUNCTION.

DEF VAR locktype AS CHAR NO-UNDO.

FIND FIRST ap-adjust NO-LOCK.
DISPLAY RecordshareLockedBy(RECID(ap-adjust), OUTPUT locktype) locktype.

/* end of program */