SetGetPos()
 Set or get the GetList order number.
------------------------------------------------------------------------------

 Syntax:

     SetGetPos( [<cGetVarName> | <nGetNumber>] ) --> <nOldGetPos>

 Arguments:

     <cGetVarName> is the character name of the GET variable.

     <nGetNumber> is the numeric position of the GET within GetList.

     <nOldGetPos> is the current forced position prior to running the
     function.

 Returns:

     SetGetPos() always returns the current GET position within the active
     GetList.  If none is active, a 0 is returned.

 Description:

     SetGetPos() is used to set or fetch the current infocus position
     within the current series if GETs if it is to be forced.

     SetGetPos() is generally set to 0 and is reset to 0 after it is
     acted upon internally by the READERS.

 Examples:

     The following example is used within a VALID clause function to force
     the highlight back into the cDepartment GET when cSection does not
     match with cDepartment.

     .
     .
     .
     IF lInvalid
        SetGetPos( "cDepartment" )
        TONE( 500 )
        lInvalid := .F.  // so we can get out of the current GET
     ENDIF

     RETURN !lInvalid


 Files:  Library is CUACLIP.LIB.