Adding header to a delimited export - CASE CLOSED

[Matthew Williams]

Problem solved!!!!

Here is the code, I added the "write" before line 10.

Then both my boss and myself slapped ourselves on the head and had a good laugh.

Thank you all for your generous help and i'm sure you'll be hearing
from me every now and then ;).

BTW, a little background on myself.  I'm not a full time employee here
at Hale Mfg. (www.halebookcases.com).  I've been doing computer work
for them on and off since high school (currently a junior in College
majoring in Network Administration).  From my time here i've picked up
a little bit of Filepro, enough to write out some apps for secretaries
and what not, nothing special, between the boss (who wrote the system
from the ground up in Filepro in the early 80's) and myself we can
usually do what we need to.  That is why i'm a little behind on all of
this so I thank you all for having patients with me and you're a great
group!

Take care!

-Matt
Hale Mfg.

1  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If: xx=""
    Then: xx(1,*,g);gosub init                                              
2  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: plant(1)=1;plant(2)=2;plant(3)=3;plant(4)=4;plant(5)=5            
3  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: plant(6)=6;plant(7)=7;plant(8)=8;plant(9)=9
4  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: plant(10)=10
5  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: end
6  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
init   If:
    Then: export word plant = /upss/ups.txt -r=\n -f=,                      
7  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: plant(1)="CustomerID";plant(2)="Country";plant(3)="Attention"     
8  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: plant(4)="Company";plant(5)="Address1";plant(6)="Address2"        
9  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: plant(7)="City";plant(8)="State";plant(9)="Phone";plant(10)="Zip"
10  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    If:
    Then: return