Re: Sorta on more than one field

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