Click above to get retro games delivered to your door ever month!

  Sx_IsLocked():

  Syntax:   Sx_IsLocked([nRecNo])

            nRecNo = record number of record to check

  Returns:  Logical .T. if record is locked, .F. if not locked.

  Description:  Returns lock status for an individual record.

  Example:

    // Assuming this is being run on a network drive, or a local drive
    // with SHARE.EXE loaded...

    USE test VIA "SIXCDX"       // Open the database
    dbGoto( 100 )               // Move to record 100
    IF RLock()                  // Try to lock the record
      ? Sx_IsLocked()           // Since it locked, this should return .T.
    ELSE                        // Otherwise...
      ? Sx_IsLocked()           // This would return .F.
    ENDIF

    // Check to see if record 1000 is locked
    ? Sx_IsLocked( 1000 )

  Notes:    If no record number is specified then the current record is
            assumed.  This function will report record locks for records
            that were locked by other users as well as the current user.

  WARNING: RLock() and Sx_RLock() will always return .T. on a local drive
           that does not have SHARE.EXE loaded, even though it didn't
           really lock the record (since there was no need).  However,
           the Sx_IsLocked() will always return the TRUE locked state of
           the record.