/***
*
*  RddSys.prg
*
*  This program is run each time your application is started to setup
*  the proper default driver.  You should modify a copy of this file
*  if you wish to use a default RDD other than DBFNTX.
*
*  Copyright (c) 1993, Computer Associates International, Inc.
*  All rights reserved.
*
*/

ANNOUNCE RDDSYS                        // This line must not change

INIT PROCEDURE RddInit()
  #ifdef SIX
    REQUEST SIXCDX                      // Causes DBFCDX RDD to be linked in
  #else
    REQUEST DBFCDX
  #endif
RETURN
/*
//-----------------------------------------------------------------------------//
FUNCTION Bs_KeyNo(cTag)
//-----------------------------------------------------------------------------//
// Возвращает номер ключа в cTag
#translate Bs_KeyNo( <cTag> ) =>;
#IFDEF SIX
    Sx_KeyNo(<cTag>)
#ELSE
  #IFDEF CDX  
    OrdKeyNo(<cTag>)
  #ESLE  
    Ax_KeyNo(<cTag>)
  #ENDIF
#ENDIF    
//-----------------------------------------------------------------------------//
FUNCTION Bs_TableName()
//-----------------------------------------------------------------------------//
// Возвращает имя с полным путем текущего открытого файла 
#ifdef SIX
  RETURN Sx_TableName()
#else
  #IFDEF CDX
    RETURN dbInfo(10)
  #ELSE
    RETURN Ax_TableName()
  #ENDIF
#endif
*/
// eof: rddsys.prg
