/*
 * $Id$
 */
/*
   creating new index files, seek and found tests
   closing files and reusing existing index file
   COPY STRUCTURE TO FIELDS ...
*/
#include "sixapi.ch"

#include "simpleio.ch"

PROCEDURE MAIN()

   LOCAL cFile   := "sixtest.dbf"
   LOCAL aStruct := { ;
      { "MYCHAR"    , "C", 15, 0 }, ;
      { "MYDATE"    , "D", 8, 0 }, ;
      { "MYNUMBER"  , "N", 8, 0 }, ;
      { "MYDECIMAL" , "N", 8, 2 }, ;
      { "MYLOGIC"   , "L", 1, 0 }, ;
      { "MYMEMO"    , "M", 10, 0 } }

   ? 'CREATE DBF cFile STRUCT aStruct'
   ? 'USE cFile ALIAS MYALIAS'
   CREATE DBF cFile STRUCT aStruct
   USE cFile ALIAS MYALIAS
   ?
   ? 'Now will copy structure ... Press any key ...'
   PAUSE
   ?
   ? 'COPY STRUCTURE TO TSTSTRU'
   COPY STRUCTURE TO TSTSTRU
   ?
   ? 'Now browse the newly created DBF ... Press any key ...'
   PAUSE
   cls
   USE "TSTSTRU" ALIAS MYSTRUCT
   BROWSE
   sx_Close()

   ?
   ? 'Now will copy structure using FIELDS clause ... Press any key ...'
   PAUSE
   ?
   ? 'COPY STRUCTURE TO TSTSTRU FIELDS MYCHAR, MYDATE, MYDECIMAL, MYLOGIC'
   COPY STRUCTURE TO TSTSTRU FIELDS MYCHAR, MYDATE, MYDECIMAL, MYLOGIC

   ? 'Now browse the newly created DBF ... Press any key ...'
   PAUSE
   cls
   USE "TSTSTRU" ALIAS MYSTRUCT
   BROWSE

   CLOSE ALL