Export Problem

[Jerry Crespi]

Here is some sample code that should work, but doesn't.
I want to export all the fields in a file, using an array and a 
looping counter.  The
result is a file that has one field per record, rather than 125 
fields per record.
Ideas anyone?  What am I doing wrong?

     ACTION             D E F I N E   P R O C E S S I N G
-------------------------------------------------------------
   1  -------   -   -   -   -   -   -   -   -   -   -   -   -
        ? If:
        Then: fn="/appl/fpmerge/exported.csv"
   2  -------   -   -   -   -   -   -   -   -   -   -   -   -
        ? If:
        Then: ct(3,#)="1";dim fld(125):1
   3  -------   -   -   -   -   -   -   -   -   -   -   -   -
        ? If:
        Then: export word fil=(fn)
   4  -------   -   -   -   -   -   -   -   -   -   -   -   -
again  ? If: ct le "125"
        Then: fil[ct]=fld(ct);ct=ct+"1";goto again
   5  -------   -   -   -   -   -   -   -   -   -   -   -   -
        ? If: not fil
        Then: end
   6  -------   -   -   -   -   -   -   -   -   -   -   -   -



Jerry Crespi, Ph.D.
President
Allied Business Systems Inc.
the people systems people
V. (714) 963-5554 Ext 4
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.celestial.com/pipermail/filepro-list/attachments/20130506/ac2e9742/attachment.html