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