Re: SORTA

["John McKay" <jmckay@xxxxxxxxxxxxxxxx>]

As far as I can see, the code in  the answer does not add the values 
together.

I would do something like this ...

D Specs
   DS
zarray         6 dim(4) ascend
acc            3 overlay(zarray)
sum$          3 overlay(zarray: *next)

C specs
   sorta acc;
   for x = 1 to 3;
     y = *zeros;
     z = x  + 1;
     y = %lookup(acc(x): acc: z);
     if y > *zeros;
       sum$(x) += sum$(y);
       sum$(y) = *zeros;
       acc(y) = *blanks;
     endif;
   endfor;

Regards,
John McKay
www.mckaysoftware.ie
www.rpglanguage.com


----- Original Message ----- 
From: "David FOXWELL" <David.FOXWELL@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, November 14, 2008 8:15 AM
Subject: SORTA


Hi,

Just curious about this question at

http://itknowledgeexchange.techtarget.com/itanswers/sorting-arrays-using-alternate-properties/?track=NL-177&ad=673287&asrc=EM_NLN_5020407&uid=5715235


One wants to get from
acc sum($)
c08 100
c02 200
c01 256
c08 300

To
acc sum($)
c01 256
c02 200
c08 400


I didn't see how the values of c08 were added together. Did I miss 
something? Is it easily possible (without reading and looping)?




P Pensez à l'environnement avant d'imprimer ce message