80 lines
2.0 KiB
Plaintext
80 lines
2.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
Enhanced DBEval, and alias assignment
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cFile1 := "test_1.dbf"
|
|
LOCAL cFile2 := "test_2.dbf"
|
|
LOCAL cFile3 := "test_3.dbf"
|
|
|
|
LOCAL aStruct := { ;
|
|
{ "MYCHAR" , "C", 15, 0 }, ;
|
|
{ "MYDATE" , "D", 8, 0 }, ;
|
|
{ "MYNUMBER1" , "N", 8, 0 }, ;
|
|
{ "MYNUMBER2" , "N", 8, 0 } }
|
|
|
|
SX_RDDSETDEFAULT( "SDEFOX" )
|
|
SET CENTURY ON
|
|
SET DATE ANSI
|
|
|
|
CREATE DBF cFile1 STRUCT aStruct
|
|
USE cFile1 ALIAS MYALIAS_1 EXCLUSIVE
|
|
|
|
CREATE DBF cFile2 STRUCT aStruct
|
|
USE cFile2 ALIAS MYALIAS_2 EXCLUSIVE
|
|
|
|
CREATE DBF cFile3 STRUCT aStruct
|
|
USE cFile3 ALIAS MYALIAS_3 EXCLUSIVE
|
|
|
|
APPEND BLANK TO MYALIAS_1 100
|
|
APPEND BLANK TO MYALIAS_2 200
|
|
APPEND BLANK TO MYALIAS_3 300
|
|
|
|
? 'sx_LastRec("MYALIAS_1")=', sx_LastRec( "MYALIAS_1" )
|
|
? 'sx_LastRec("MYALIAS_2")=', sx_LastRec( "MYALIAS_2" )
|
|
? 'sx_LastRec("MYALIAS_3")=', sx_LastRec( "MYALIAS_3" )
|
|
|
|
? 'GOTO 100 ALIAS MYALIAS_1'
|
|
GOTO 100 ALIAS MYALIAS_1
|
|
|
|
? 'REPLACE MYCHAR ALIAS MYALIAS_1 WITH "my_alias_3"'
|
|
REPLACE MYCHAR ALIAS MYALIAS_1 WITH "my_alias_3"
|
|
|
|
// SX_REPLACE("MYCHAR","My_Alias_3","MYALIAS_1")
|
|
|
|
? 'DELETE FOR sx_RecNo() <= 50 AREA MYALIAS_1'
|
|
? 'DELETE FOR sx_RecNo() <= 70 AREA MYALIAS_2'
|
|
? 'SX_GETVALUE("MYCHAR","MYALIAS_1")=', SX_GETVALUE( "MYCHAR", "MYALIAS_1" )
|
|
|
|
? 'sx_Recno("MYALIAS_1") =', sx_Recno( "myalias_1" )
|
|
|
|
DELETE FOR sx_RecNo() <= 50 AREA MYALIAS_1
|
|
DELETE FOR sx_RecNo() <= 70 AREA MYALIAS_2
|
|
|
|
? 'PACK MYALIAS_1'
|
|
? 'PACK MYALIAS_2'
|
|
|
|
PACK MYALIAS_1
|
|
PACK MYALIAS_2
|
|
|
|
? 'sx_LastRec("MYALIAS_1")=', sx_LastRec( "MYALIAS_1" )
|
|
? 'sx_LastRec("MYALIAS_2")=', sx_LastRec( "MYALIAS_2" )
|
|
? 'sx_LastRec("MYALIAS_3")=', sx_LastRec( "MYALIAS_3" )
|
|
|
|
? 'ZAP MYALIAS_1'
|
|
? 'ZAP MYALIAS_2'
|
|
|
|
ZAP MYALIAS_1
|
|
ZAP MYALIAS_2
|
|
|
|
? 'sx_LastRec("MYALIAS_1")=', sx_LastRec( "MYALIAS_1" )
|
|
? 'sx_LastRec("MYALIAS_2")=', sx_LastRec( "MYALIAS_2" )
|
|
? 'sx_LastRec("MYALIAS_3")=', sx_LastRec( "MYALIAS_3" )
|