Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problem with APPEND FROM
Message
 
To
07/11/2000 14:26:26
Rebecca Stottlemire
Kansas State Department of Commerce
Topeka, Kansas, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00438579
Message ID:
00439106
Views:
17
Rebecca,
Have you tried changing all your macros to the
SELECT (gcCurrFile)
format? It handles spaces in the folder and file names more smoothly, and I've found it occasionally solves the kind of problem you're having with differences between operating systems and networks.

HTH
Barbara


>It gives the message Unrecoverable Error: 36, Command contains unrecnognized phrase/keyword.
>
>This is the proc:
>
>PROCEDURE import(gcCurrFile,gcCurrPath)
>_screen.mousepointer = 11
>*close each file, then open exclusive so it can be emptied
>*repoen it, not exclusive, append new data using path supplied
>IF USED(gcCurrFile)
> SELECT &gcCurrFile
> USE
>ENDIF
>
>SELECT 0
>USE &gcCurrFile EXCLUSIVE
>WAIT "Importing " + gcCurrFile WINDOW NOWAIT
>ZAP
>PACK
>USE
>SELECT 0
>USE &gcCurrFile
>APPEND FROM &gcCurrPath SDF
>WAIT CLEAR
>
>IF RECCOUNT(gcCurrFile) > 0
> glSuccess = .T.
>*open import log and add record
> IF USED('implog')
> SELECT implog
> USE
> ENDIF
> SELECT 0
> USE implog IN 0 EXCLUSIVE
> SELECT implog
> DELETE ALL FOR impfile=gcCurrFile
> PACK
> INSERT INTO implog(impdate, impfile, imppath, imprecs);
> VALUES(DATETIME(), gcCurrFile, gcCurrPath, RECCOUNT(gcCurrFile))
> SELECT implog
> USE
> SELECT &gcCurrFile
> USE
>ENDIF
>
>_screen.mousepointer = 0
>
>ENDPROC
>
>Any ideas? Thanks loads,
>Becky
Barbara Paltiel, Paltiel Inc.
Previous
Reply
Map
View

Click here to load this message in the networking platform