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

  Sx_ROXUnLock():

  Syntax:   Sx_ROXUnLock()

  Returns:  NIL

  Description:  Turns Read-Only Index Locking off for the currently active
                index.  The index lock would have been previously set by the
                Sx_ROXLock() function.  This function has no effect in a
                non-shared mode.

    NOTE:  This function is NOT supported under SIXNTX.

  Example:

    #include "SIXNSX.CH"

    LOCAL nSecs := 0, nCount := 0

    SET EXCLUSIVE OFF              // Make sure we're in SHARED mode

    RDDSetDefault("SIXNSX")        // Select the SIXNSX Driver
    CLEAR                          // Clear the screen
    USE test                       // Open a table with SIXNSX
    INDEX ON last TO last          // Create an IDX index
    CLOSE ALL                      // Close everything and reopen it
    USE test INDEX test            //   to unlock the newly-created index

    nSecs := Seconds()             // Save the start time
    ? "Without ROXLock...: "       // Display an informational message
    FOR nCount := 1 TO 1000        // Loop 1000 times and
      dbSeek("BogusName")          //   SEEK a value that doesn't exist
    ENDDO
    ?? AllTrim( Str( Seconds()-nSecs )) + " Seconds"  // Display total time

    Sx_ROXLock()                   // Set a Read-Only lock on LAST.IDX
    nSecs := Seconds()             // Save the start time
    ? "With ROXLock......: "       // Display an informational message
    FOR nCount := 1 TO 1000        // Loop 1000 times and
      dbSeek("BogusName")          //   SEEK a value that doesn't exist
    ENDDO
    ?? AllTrim( Str( Seconds()-nSecs )) + " Seconds"  // Display total time
    Sx_ROXUnLock()                 // Unlock the index