RDDSETDEFAULT()
 Establece o devuelve el RDD por defecto de la aplicación
------------------------------------------------------------------------------
 Sintaxis

     RDDSETDEFAULT([<cRDDNuevopordefecto>])
        --> cRDDAnteriorpordefecto

 Argumentos

     <cRDDNuevopordefecto> es una cadena de caracteres con el nombre del
     nuevo RDD por defecto de la aplicación.

 Devuelve

     RDDSETDEFAULT() devuelve una cadena de caracteres,
     cRDDAnteriorpordefecto, con el nombre del controlador por defecto
     anterior. CA-Clipper utiliza el controlador por defecto cuando no se
     especifica explícitamente un RDD en la cláusula VIA del mandato USE.

 Descripción

     RDDSETDEFAULT() es una función RDD que devuelve el nombre del
     controlador por defecto y, opcionalmente, establece un nuevo
     controlador por defecto. Si <cRDDNuevopordefecto> no se especifica, se
     devuelve el nombre del controlador por defecto actual y no se establece
     ningún controlador nuevo.

     Esta función sustituye a la función DBSETDRIVER().

 Ejemplos

     // El controlador por defecto se establece a DBFNTX

     IF ( RDDSETDEFAULT() != "DBFNTX" )
        cAntRdd := RDDSETDEFAULT( "DBFNTX" )
     ENDIF