RE: Add ability to sort externally defined arrays. -- RPG400-L

Did NOT see any samples in your article about an externally defined 
qualified data structure being able to sort on one of it's subfields. 
With, or without, %subarr.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Bob Cozzi" <cozzi@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/01/2004 01:45 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: Add ability to sort externally defined arrays.






A.... the %SUBARR in V5R3 will do this for you.
You can use it with the SORTA opcode to isolate the number of elements
(similar to %LOOKUP) being sorted. 

See my article at www.mcpressonline.com/midrangedev for details.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Monday, November 01, 2004 12:19 PM
To: RPG programming on the AS400 / iSeries
Subject: Add ability to sort externally defined arrays.

Currently I can do the following:
     D                 ds
     D MyArray                        4a   dim(20)
     D  Code1                         2a   overlay(MyArray)
     D  Code2                         2a   overlay(MyArray:*next)
     D CurrNbrElem     s              5i 0
     D Result          s              5i 0
     D X               s             10i 0 
      /free
       Code1(1)='AA';
       Code1(2)='BB';
       Code1(3)='CC';
       Code2(1)='ZZ';
       Code2(2)='YY';
       Code2(3)='XX';
       // At this time MyArray(1)='AAZZ', (2)='BBYY', (3)='CCXX'
       CurrNbrElem=3;
       result = %lookup('YY':Code2:1:CurrNbrElem);
       dsply result;
       for x=4 to %elem(MyArray);
        Code1(x)=*hival;
        Code2(x)=*hival;
       EndFor;
       sorta code2;
       // At this time MyArray(1)='CCXX', (2)='BBYY', (3)='AAZZ'
       sorta code1;
       // At this time MyArray(1)='AAZZ', (2)='BBYY', (3)='CCXX'

I would also like this ability
     D MyDs          E DS                  extname(aaakey) qualified 
dim(10)
     D x               s              5i 0


      /free
       myds(1).loc='A';
       myds(2).loc='B';
       myds(1).comp=2;
       myds(2).comp=1;
       dsply myds(1).loc;  // should be 'A'
       sorta myds.comp;
 
       dsply myds(1).loc;  // should be 'B'
       sorta myds.loc;
       dsply myds.comp;  // should be 'A' again
       dsply x; //  should be equal to 2 

If this interests you, then please vote here:
https://www7b.software.ibm.com/webapp/wsdd/studioServlet3?client=form210&SID

=1099333121622&SAVEKEY=452

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

--
This is the RPG programming on the AS400 / 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.



--
This is the RPG programming on the AS400 / 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.