need to create an array

[hag]

I want to create an array from a data base of a specific range of accounts. The accounts are the first field of the data base.
Some of the accounts may not exist so it needs to stop at the last number available in the range.
I don't know how to do this.
All help will be appreciated.

Thanks

[James Bott]

Harvey,

Try something like this. I haven't tested it, cAlias may need to be surrounded by parens, and field(1) maybe doesn't need to be. My memory is a little foggy on this.

If you can't get it working, then send me a sample database, and I will.

James

Code: Select all  Expand view

local aAccounts:={}

select cAlias
set filter to ;
   cAlias->( field(1) ) >= cStartAcctNo .and. ;
   cAlias->( field(1) ) <= cEndAcctNo
   
cAlias->dbgotop()

do while ! cAlias->(eof())
   aadd( aAccounts, cAlias->(field(1)) )
   cAlias->(dbskip())
enddo
 

[hag]

As always thanks for the in put.