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

 AX_IsReindex()
 Check if REINDEX is in progress
------------------------------------------------------------------------------

 Syntax

     AX_IsReindex() -> logical

 Returns

     Returns a logical .T. if a REINDEX is in progress.  If no REINDEX is
     occurring, it returns a .F.

 Description

     AX_IsReindex() checks if a REINDEX is in progress.  When a UDF is
     specified in an EVAL clause of INDEX or REINDEX, this function
     determines which index case is in progress.  This function can be
     called within the UDF.

 Example

     USE test VIA "DBFCDXAX"            // TEST.CDX opened automatically
     REINDEX EVAL ShowIt() EVERY 100

     FUNC ShowIt()

        //Display the appropriate message
        ? IF( AX_IsReindex(), "Reindexing ", "Indexing " )

        // Display the index file and tag name.
        ? AX_I_IndexName() + " : " + AX_I_TagName()
        ?
        // Show how many keys have been included.
        @ ROW(), 1 SAY AX_KeysIncluded()

     RETURN .T.