34 lines
1004 B
Plaintext
34 lines
1004 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_BaseDate(), sx_BaseName()
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL aInfo, i, j
|
|
LOCAL s, t
|
|
LOCAL aStruct1 := { { "PART_NO","C",10,0 }, { "PRICE","N",10,2 }, { "NOTES","M",10,0 } }
|
|
LOCAL aStruct2 := { { "CUST_NAME","C",20,0 }, { "AMOUNT","N",12,0 }, { "DUEDATE","D",8,0 }, { "PAID","L",1,0 } }
|
|
|
|
SET DATE ANSI
|
|
CREATE TABLE "TEST1" STRUCT aStruct1 RDD SDEFOX
|
|
CREATE TABLE "TEST2" STRUCT aStruct2 RDD SDENSX
|
|
USE "test1" ALIAS ONE READONLY RDD SDEFOX
|
|
USE "test2" ALIAS two EXCLUSIVE RDD SDENSX
|
|
|
|
? 'sx_BaseDate() =', sx_BaseDate()
|
|
? 'sx_BaseDate(1) =', sx_BaseDate( 1 )
|
|
? 'sx_BaseDate(2) =', sx_BaseDate( 2 )
|
|
? 'sx_BaseDate("ONE") =', sx_BaseDate( "ONE" )
|
|
? 'sx_BaseDate("TWO") =', sx_BaseDate( "TWO" )
|
|
?
|
|
? 'sx_BaseName(1) =', sx_BaseName( 1 )
|
|
? 'sx_BaseName(2) =', sx_BaseName( 2 )
|
|
? 'sx_BaseName("ONE") =', sx_BaseName( "ONE" )
|
|
? 'sx_BaseName("TWO") =', sx_BaseName( "TWO" )
|