IRecNo()
 Logical index position function stub.
------------------------------------------------------------------------------

 Syntax:

     IRecNo( [<nLogicalRecNo>] ) --> <nLogicalRecNo>|<nRecNo>

 Arguments:

     <nLogicalRecNo> is an optional index record number which when passed
     tells IRecNo() to return the true RECNO() of the index position
     represented by <nLogicalRecNo>.

 Returns:

     IRecNo() returns the current logical index record position of the
     current record if no parameters are passed.  If a numeric expression is
     passed the function returns the actual position within the current data
     base according to the logical position represented by the numeric
     expression.

 Description:

     IRecNo() is to be used by STDBrowse() to determine the logical
     position of a record within an indexed data set.  IRecNo() is to be
     customized by the programmer depending upon the RDD's in use.  New RDD's
     can be introduced and used as support functions are available.  (SIX
     Drivers has this functionality available for you.)

 Example:

     The following is the included example file for the 5.01 DBFNTX driver:

     FUNCTION IRecNo( nNewRecNo )

        LOCAL nReturnVar

        IF VALTYPE( nNewRecNo ) == "N"    // return true RECNO()

           nReturnVar := NtxRec( IndexOrd(), nNewRecNo )

        ELSE                              // return logical RECNO()

           nReturnVar := NtxPos( IndexOrd(), RECNO() )

        ENDIF

     RETURN ( nReturnVar )


 Files:  Library is CUACLIP.LIB.