Re: Sorta with %Fields

Hi Steven,

Yes - this works how it is designed.

Item is an alphanumeric field - means, that *BLANK is sorted before everything else.

If you want to sort the first 10 elements, you have to sort a %subarr.

Sorta %Subarr(Location:1:10) %Fields(Item:House:Location);

Now only the first 10 elements will be sorted in place.

Simon has written a blog post about it in 2021: https://www.rpgpgm.com/2021/09/new-bif-added-to-sorta-to-make-sorting.html

HTH
Daniel

Am 09.10.2024 um 17:06 schrieb Steven Jones <steven.jones@xxxxxxxxxxxxxxxxxxx>:

I have an array defined as

dcl-ds Location qualified dim(50)
Item char(15);
House char(3);
Location char(7);
Quantity packed(10:3);
Consumed packed(10:3);
End-ds

I load the array & element 1 through 10 contains data, viewed using RDi debug.
Then I do a
Sorta Location %Fields(Item:House:Location);

Looking at the array after the sort, element 1-10 is blank but element 50-40 is now populated.

Is this how the Sorta is designed to work?

I have looked at samples posted elsewhere & they indicate that element 1-10 would contain my data after the sort.

Steve Jones | Senior Systems Programmer / Analyst
Douglas Machine Inc. | Cell: 330.327.1119
douglas-machine.com<http://www.douglas-machine.com/> | steven.jones@xxxxxxxxxxxxxxxxxxx
EMPLOYEE OWNED, CUSTOMER DRIVEN.

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.