Export problem

[Kenneth Brody]

Quoting George Simon (Thu, 8 Feb 2007 15:21:42 -0500):

> > Yes, I did ask them to upgrade.  No luck there.
>
> > So, my next question is - how do I get to the first
> > record?  Sorry, I would normally do some testing at
> > this point, but I don't have access to the 4.0 system.

It would work the same way in 5.6, as long as you stick to
features available in 4.0.

> > Will I be able to do a record number lookup to record
> > #1, and still do a getnext - if the first lookup
> > fails?  This assumes I enter the processing with the
> > -xe flag.

You can't getnext/getprev a failed lookup.

> > I suppose, if necessary, I could create a blank
> > selection set before going into IUA and then use that
> > to get to the first record.
>
> I don't know if the code below would work, it depends on how filePro
> selects the next record to be used from the pool of available record
> numbers.  Ken?
[... if lookup to record 1 fails ...]
> If:
> Then:	lookup filename r=free -e
> If: filename(@rn) ne rn
> Then: delete filename; goto ADDREC1
> If:
> Then: lookup - r=rn -e
> If:
> Then: return

The lookup-free will get the first record off of the freechain,
if any.  There is no guarantee about the order of the records on
the freechain.

--
KenBrody at BestWeb dot net        spamtrap: <g8ymh8uf001 at sneakemail.com>
http://www.hvcomputer.com
http://www.fileProPlus.com