44 lines
931 B
Plaintext
44 lines
931 B
Plaintext
/*
|
|
* $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
|