SET TALK OFF
SET ECHO off
GETDIR()

thisform.text1.Value=GETFILE()
SET DEFAULT TO e:\samerqda
LOCAL lcTableName
lcTableName = thisform.text2.value  
CREATE TABLE &lcTableName (char1 C(10), char2 C(70),char3 C(10), char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10),char9 c(10), fld10 datetime(40),char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)

APPEND FROM (thisform.text1.value)TYPE XLS

USE (thisform.text2.value) exclusive ALIAS SomeAlias
index on char9 tag char9
select sys(2015) as SortOrder,* from SomeAlias ;
 into cursor crsTemp nofilter

select SomeAlias && now it should work
zap
select crsTemp
scan
 if !seek(char9 ,'SomeAlias','char9')

scatter memvar memo
 insert into (thisform.text2.value) from memvar
 endif
endscan

CREATE TABLE newamar66 (char1 C(10), char2 C(70),char3 C(10), ;
char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10), ;
char9 c(10), fld10 datetime(40),char11 C(10), char12 C(60), ;
char13 C(50), char14 C(40),char15 C(10), char16 C(10), ;
char17 C(10), char18 C(70),char19 C(10), char20 C(10), ;
char21 C(10), char22 C(40),char23 C(10), char24 C(10), ;
char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
CLOSE all
select * from (thisform.text2.value) ;
where rand() < 4500 / 100000 ;
INTO CURSOR newamar66

brow