Re: Sorta on more than one field

[Booth Martin <booth@xxxxxxxxxxxx>]

Thank you. That helped.  I am loading the array wrong.

Now I have to figure out how to load the array.

Then it is possible and relatively easy to sort several fields with 
SORTA?  If the array is properly constructed?


On 12/9/2019 8:44 PM, Jon Paris wrote:
> What is confusing you Booth?
>
> There is an outer array of managers.  Each of the manager elements consists of the managers name and a DS array of their employees. Each element of that emps array has the persons name.
>
> To sort it employee in manager sequence you must first order the outer elements (manager) and then order the employees within each manager.  Hence the nested for loops.
>
> Maybe the structure of the data would be clearer if translated to current dcl capabilities?  Like so:
>
>
> Dcl-ds  teams  QUALIFIED DIM(2)
>     manager  varchar(25);
>     Dcl-ds  emps  Dim(2);
>        name  varchar(25);
>     End-ds  umps;
> End-ds  teams;
>
>
>
> > On Dec 9, 2019, at 8:33 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:
> >
> > I am trying to follow the instructions but  getting helplessly confused.
> >
> > section from the manual: |SORTA (Sort an Array) <https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzasd/zzsorta.htm>|
> >
> > "...|||// Sort the TEAMS array first by the MANAGER subfield |
> >
> > |// and then by the EMPS.NAME subfields *SORTA teams(*).manager; for i = 1 to %ELEM(TEAMS); SORTA teams(i).emps(*).name; endfor;* // After the first sort, by MANAGER: ..." ---------------------------------------------- This says that we can sort fields within fields with a simple loop? |
> >
> > --
> > Booth Martin
> > www.martinvt.com
> > (870)576-9371
> > (802)461-5349
> >
> > Decisions of the judges will be final unless shouted down by a really overwhelming majority of the crowd present. Abusive and obscene language may not be used by contestants when addressing members of the judging panel, or, conversely, by members of the judging panel when addressing contestants (unless struck by a boomerang). -- Mudgeeraba Creek Emu-Riding and Boomerang-Throwing Association
> > --
> > 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@xxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com