27 lines
890 B
Plaintext
27 lines
890 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
setting up valid RDD ....
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN( x )
|
|
|
|
LOCAL e
|
|
|
|
?
|
|
? '================================='
|
|
? 'These are the valid RDD options :'
|
|
? '---------------------------------'
|
|
? 'This is the default driver :', sx_RDDSetDefault()
|
|
? 'Setting RDD to SDENTX ', ', Before :', sx_RDDSetDefault( "SDENTX" ), ', Now :', sx_RDDSetDefault()
|
|
? 'Setting RDD to SDENSX ', ', Before :', sx_RDDSetDefault( "SDENSX" ), ', Now :', sx_RDDSetDefault()
|
|
? 'Setting RDD to SDEFOX ', ', Before :', sx_RDDSetDefault( "SDEFOX" ), ', Now :', sx_RDDSetDefault()
|
|
? 'Setting RDD to SDENSXDBT ', ', Before :', sx_RDDSetDefault( "SDENSXDBT" ), ', Now :', sx_RDDSetDefault()
|
|
? 'This is now the default driver :', sx_RDDSetDefault()
|
|
// The next will cause an Internal Error
|
|
? sx_RDDSetDefault( "SIXCDX" )
|