Re: Ascend and data structure lookups.

The data structure is dynamic. It get allocated for the amount of storage
it needs. Sorry should have removed it. Just adds complexity. I could just
say.

dcl-ds ExcTariffDS Qualified Dim(1000);

Exchange Zoned(6:0);

Tariff Char(3);

end-ds;


Idx = %Lookup(971002: ExcTariffDs(*).Exchange);


As far as I know, RPG will only do a binary search if you use the ASCEND or
DESCEND keyword. I am trying to see if there is a way to tell the compiler
to do a binary search on Exchange. I don;t think there is.


I could define it like this but again I don't think it is doing a binary
search on Exchange.


dcl-ds ExcTariffDs;

ExcTariffArr Ascend Dim(1000);

Exchange Zoned(6:0) Overlay(ExcTariffArr:*Next);

Tariff Char(3) Overlay(ExcTariffArr:*Next);

end-ds;


Idx = %Lookup(971002: Exchange);




On Tue, Nov 24, 2015 at 7:05 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

I am not sure I understand the issue. The Subject says "Ascend and data
structure lookups." %lookup normally does binary searches on
ascend/descend arrays. It isn't clear how LoadedCount is a help, and it
might be a real problem with a Ascend array?


On 11/24/2015 7:47 PM, Alan Campin wrote:

Given the following data structure, is there anyway to have it do a binary
search on the lookup?

dcl-ds ExcTariffDS Qualified Dim(32766) Based(ptrExcTariffDs);

Exchange Zoned(6:0);

Tariff Char(3);

end-ds;


Idx = %Lookup(971002: ExcTariffDs(*).Exchange:1:LoadedCount);

--

This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.