<div dir="ltr"><div><div>Jerry,<br><br></div>I hate to be the bearer of bad news but the fil[ct] part of the export does not take a regular expression, only literals. So you need 125 file["1"]= file["2"]= commands to get the 125 fields exported.<br>
<br></div><div>Also, the "not fil" is not required.<br></div><div><br></div>Ken<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Tue, May 7, 2013 at 8:58 AM, Jerry Crespi <span dir="ltr"><<a href="mailto:jcrespi@alliedhr.com" target="_blank">jcrespi@alliedhr.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">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<br>
looping counter. The<br>
result is a file that has one field per record, rather than 125<br>
fields per record.<br>
Ideas anyone? What am I doing wrong?<br>
<br>
ACTION D E F I N E P R O C E S S I N G<br>
-------------------------------------------------------------<br>
1 ------- - - - - - - - - - - - -<br>
? If:<br>
Then: fn="/appl/fpmerge/exported.csv"<br>
2 ------- - - - - - - - - - - - -<br>
? If:<br>
Then: ct(3,#)="1";dim fld(125):1<br>
3 ------- - - - - - - - - - - - -<br>
? If:<br>
Then: export word fil=(fn)<br>
4 ------- - - - - - - - - - - - -<br>
again ? If: ct le "125"<br>
Then: fil[ct]=fld(ct);ct=ct+"1";goto again<br>
5 ------- - - - - - - - - - - - -<br>
? If: not fil<br>
Then: end<br>
6 ------- - - - - - - - - - - - -<br>
<br>
<br>
<br>
Jerry Crespi, Ph.D.<br>
President<br>
Allied Business Systems Inc.<br>
the people systems people<br>
V. (714) 963-5554 Ext 4<br>
-------------- next part --------------<br>
An HTML attachment was scrubbed...<br>
URL: <a href="http://mailman.celestial.com/pipermail/filepro-list/attachments/20130506/ac2e9742/attachment.html" target="_blank">http://mailman.celestial.com/pipermail/filepro-list/attachments/20130506/ac2e9742/attachment.html</a><br>
_______________________________________________<br>
Filepro-list mailing list<br>
<a href="mailto:Filepro-list@lists.celestial.com">Filepro-list@lists.celestial.com</a><br>
Subscribe/Unsubscribe/Subscription Changes<br>
<a href="http://mailman.celestial.com/mailman/listinfo/filepro-list" target="_blank">http://mailman.celestial.com/mailman/listinfo/filepro-list</a><br>
</blockquote></div><br></div>