22 lines
484 B
Plaintext
22 lines
484 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
function main()
|
|
|
|
local aStruct := { { "CHARACTER", "C", 25, 0 }, ;
|
|
{ "NUMERIC", "N", 8, 0 }, ;
|
|
{ "DOUBLE", "N", 8, 2 }, ;
|
|
{ "DATE", "D", 8, 0 }, ;
|
|
{ "LOGICAL", "L", 1, 0 } }
|
|
|
|
local aRdd := rddList()
|
|
|
|
QOut( "Registered RDD's:", LTrim( Str( Len( aRdd ) ) ), "=>" )
|
|
aEval( aRdd, { | cDriver | QQOut( "", cDriver ) } )
|
|
QOut()
|
|
QOut( "Creating a DBF file" )
|
|
dbCreate( "testdbf.dbf", aStruct )
|
|
|
|
return nil
|