Export
Richard Kreiss
rkreiss at gccconsulting.net
Tue Jul 1 08:17:25 PDT 2008
I have a filepro file with 107,450 records, with 14 fields, that needs to be exported to a csv file.
When export word is run, is stops writing records after about 28,600. The last record written has only the first 3 fields written.
Is there a limit to how many records can be exported?
Is there an export environmental variable that can be set.
Richard Kreiss
GCC Consulting
rkreiss at gccconsulting.net
Here is the code:
8 ------- - - - - - - - - - - - - - - - -
◄ If: 14 ="15" 'don't export this record
Then: END 'used for update selection only
9 ------- - - - - - - - - - - - - - - - -
◄ If: ct = ""
Then: CLS("1","4");ct(8,.0,g)="0"
10 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: SHOWCTR("2") "Exporting Ranking Data to \b5 f:/csv_files/cp.csv"
11 ------- - - - - - - - - - - - - - - - -
◄ If: getenv("pfdata") = "F:"
Then: FILENAME="f:\csv_files\ccp.csv"
12 ------- - - - - - - - - - - - - - - - -
◄ If: getenv("pfdata") = "F:"
Then: FILENAME="W:\CCP\csv_files\ccp.csv"
13 ------- - - - - - - - - - - - - - - - -
◄ If: getenv("pfdata") = "w:"
Then: export word rank=(filename)
14 ------- - - - - - - - - - - - - - - - -
◄ If: @rs = "1"
Then: GOSUB exp_hed
15 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: rank(1)=1;rank(2)=2;rank(3)=3;rank(4)=4;rank(5)=5;rank(6)=6;rank(7)
16 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: rank(8)=8;rank(9)=9;rank(10)=10;rank(11)=11;rank(12)=12;rank(13)=13;rank(14)=14
17 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: ct=ct+"1";SHOW("17","15") "Records Exported \b6"<ct<"\a-"
18 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: write
19 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: END
20 ------- - - - - - - - - - - - - - - - -
exp_hed◄ If: '********************************************************
Then: '* create header row
21 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: rank(1)="Doc_number"
Header row code
───────────────────────────────────────────────────────────────────────────────
34 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: rank(14)="Rank"
35 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: write
36 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: debug on
37 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: RETURN
38 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: DECLARE FILENAME
More information about the Filepro-list
mailing list