header records on an export file

[Rick Mitchell]

I have modified my system:

It does the count, get's the filename and opens the export record header
subroutine

export day1=(fd) R=^j f=\,

day(1)="IA", etc.

Close day1

Then as it processes calls another subroutine

export day=(fd) r=^j f:\, -a
return

then the export works

day(1)="IL";day(2)="FEBCO"
day(3)=2; day(3)=4; day(5)=5

etc.

When I close both records after writing, i get failures and it dumps out of
processing after trying to write the first data record.

if i close only the header i get error on first data record.  I press F ad
it goes on and writes the file correctly.   Maybe i need a delay before
reopening the file for append?