FW: How do I force export from within a loop

[John Esak]

<forwarding for Ken, who says he's been having trouble...>

-----Original Message-----
From: ken white [mailto:kenwhite at bellatlantic.net]
Sent: Wednesday, August 17, 2005 6:53 PM
To: Kenneth Brody
Cc: John Esak
Subject: Re: How do I force export from within a loop


>WRITE still only works in *report.
>
> However, since the documented way of doing multiple exports is to
> execute the EXPORT more than once, rather than WRITE, no one noticed
> until 15+ years later.
>

Ken,

I cannot seem to post to the filepro newsgroup so...

I was looking at code last month that I wrote 12 years ago which used this
feature:

Basic idea of code:

::export ascii eee = somefile  r=\n f=,:
:xx="":gosub header:
::eee(1)=1:
::eee(2)=2:
::eee(3)=3:
::write eee:
::end:
::':
header:::
::eee(1)="Field1":
::eee(2)="Field2":
::xx(1,,g)="Y":
::write eee:
::return:

I thought that this code was inaccurate and changed the routines to call
export for each line to be sent to the file.