export question

[Nancy Palmquist]

Roger Cornelius wrote:

> On Sun Oct 31 08:45, Nancy Palmquist wrote:
> 
>>Roger Cornelius wrote:
>>
>>
>>>dreport v 4.8.10D4 on SCO OSR5.0.7
>>>
>>>Is there a way to export more than one record for each filepro record
>>>selected in output processing?  The manual says no.
>>>
>>>E.g.:
>>
>>	THEN: count="0"	
>>
>>>wrtit   If: 
>>>      Then: export WORD exp=(of)
>>>        If:count eq "1"
>>>      Then: exp(1) = 1
>>>        If:count eq "1"
>>>      Then: exp(2) = 2
>>>        If:count eq "2"
>>>      Then: exp(1) = 3
>>>        If:count eq "2"
>>>      Then: exp(2) = 4
>>>        If:
>>>      Then: write exp;count=count"1";goto wrtit    ' write second export 
>>>      rec
>>>        If: 
>>>      Then: end
>>>
>>>
>>

> 
> This is contrary to what Ken and Jeff say in previous replies where they
> stated the "export" statement should precede the field assignements.

I must have been asleep when I finished this.  It should have been like 
this.

declare first, second
first=1;second=2;gosub wrtit
first=3;second=4;gosub wrtit
end
wrtit:   export WORD exp=(of)
	exp(1)=first;exp(2)=second;write;first="";second="";return


-- 
Nancy Palmquist
Virtual Software Systems
PHONE: (412) 835-9417			Web site:  http://www.vss3.com