27 lines
605 B
Plaintext
27 lines
605 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_CreateFrom()
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
USE "test/test" ALIAS TESTME
|
|
COPY STRUCTURE EXTENDED TO "Foo"
|
|
// Alias "BAR" passed and "newdbf.dbf" will be opened after creation
|
|
? sx_CreateFrom( "newdbf.dbf", "bar", "Foo", "SDENSX" )
|
|
sx_Close( "TESTME" )
|
|
? sx_Alias() // should be in "BAR"
|
|
CLOSE ALL
|
|
?
|
|
USE "test/test" ALIAS TESTME
|
|
COPY STRUCTURE EXTENDED TO "Foo"
|
|
// No alias passed, FOO will not be opened
|
|
? sx_CreateFrom( "newdbf.dbf", , "Foo", "SDENSX" )
|
|
? sx_Alias() // should be in "TESTME"
|
|
CLOSE ALL
|