/*
 * $Id$
 */
/*
   Copying records to a new DBF files from current work area ....
   SX_DBSTRUCT() ...
*/
#include "sixapi.ch"

#include "simpleio.ch"

PROCEDURE MAIN()

   LOCAL cFile   := "sixtest.dbf"
   LOCAL aStruct := { ;
      { "MYCHAR"    , "C", 15, 0 }, ;
      { "MYDATE"    , "D", 8, 0 }, ;
      { "MYNUMBER1" , "N", 8, 0 }, ;
      { "MYNUMBER2" , "N", 8, 2 }, ;
      { "MYLOGICAL" , "L", 1, 0 }, ;
      { "MYMEMO"    , "M", 10, 0 } }
   LOCAL j, aStructure

   SET CENTURY ON
   SET DATE ANSI

   IF File( "mytext.txt" )
      FErase( "mytext.txt" )
   ENDIF

   CREATE DBF cFile STRUCT aStruct

   USE cFile ALIAS MYALIAS
   ?
   ? 'SX_DBSTRUCT() Test ...'
   ?
   ? 'len( aStructure ) :=', ltrim( str( len(aStructure := sx_dbstruct() ) ) )
   ?
   for j := 1 TO len( aStructure )
      ? padr( aStructure[j][1], 16 ) + aStructure[j][2] + str( aStructure[j][3] ) + str( aStructure[j][4] )
   next

   CLOSE ALL