
<html>

<body>

Here is some sample code that should work, but doesn't.<br>

I want to export all the fields in a file, using an array and a looping

counter.&nbsp; The<br>

result is a file that has one field per record, rather than 125 fields

per record.<br>

Ideas anyone?&nbsp; What am I doing wrong?<br><br>

<tt>&nbsp;&nbsp;&nbsp;

ACTION&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

D E F I N E&nbsp;&nbsp; P R O C E S S I N G<br>

-------------------------------------------------------------<br>

&nbsp; 1&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ? If:<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then:

fn=&quot;/appl/fpmerge/exported.csv&quot;<br>

&nbsp; 2&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ? If:<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then: ct(3,#)=&quot;1&quot;;dim

fld(125):1<br>

&nbsp; 3&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ? If:<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then: export word fil=(fn)<br>

&nbsp; 4&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br>

again&nbsp; ? If: ct le &quot;125&quot;<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then:

fil[ct]=fld(ct);ct=ct+&quot;1&quot;;goto again<br>

&nbsp; 5&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ? If: not fil<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then: end<br>

&nbsp; 6&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp;

-&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br><br>

<br>

</tt><x-sigsep><p></x-sigsep>

Jerry Crespi, Ph.D.<br>

President<br>

Allied Business Systems Inc.<br>

<i>the people systems people<br>

</i>V. (714) 963-5554 Ext 4<br>

</body>

</html>