Re: SORTA of a qualified data structure

No, only the 4th array is sorted.

You should create one array, and OVERLAY the subfields on that array. Then
it will sort as you want (contagious arrays), Sort of (just by heart):

D ArSfl ds
D ARRAY DIM(300)
D ArField1 like(Field1) OVERLAY(ARRAY:1)
D ArField2 like(Field2) OVERLAY(ARRAY:*NEXT)
D ArField3 like(Field3) OVERLAY(ARRAY:*NEXT)
D ArField4 like(Field4) OVERLAY(ARRAY:*NEXT)
D ArField5 like(Field5) OVERLAY(ARRAY:*NEXT)
D ArField6 like(Field6) OVERLAY(ARRAY:*NEXT)
D ArField7 like(Field7) OVERLAY(ARRAY:*NEXT)

With regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 13-8-2010 at 17:10 Booth Martin wrote:

I understand and use this form of sorting data (from the reference
manual):

*...1....+....2....+....3....+....4....+....5....+....6....+....7...+....
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++
* In this example, the base array has the values aa44 bb33 cc22 dd11
* so the overlaid array ARRO has the values 44 33 22 11.
*D DS
D ARR 4 DIM(4) ASCEND
D ARRO 2 OVERLAY(ARR:3)
D*
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....

C
* After the SORTA operation, the base array has the values
* dd11 cc22 bb33 aa44
*C
C SORTA ARRO*
===========================================================================

====

But I am thinking I should be learning about Qualified data structures.
D ArSfl ds qualified
D ArField1 like(Field1) dim(300)
D ArField2 like(Field2) dim(300)
D ArField3 like(Field3) dim(300)
D ArField4 like(Field4) dim(300)
D ArField5 like(Field5) dim(300)
D ArField6 like(Field6) dim(300)
D ArField7 like(Field7) dim(300)

If I do:
sorta ArSfl.ArField4
will the other 6 fields be sorted too, and not corrupt my data?

(Any other comments about this are more than welcome. Something is
making me think I am wandering too far astray.)
--
This is the RPG programming on the IBM i / System i (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.


Geen virus gevonden in het binnenkomende-bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 9.0.851 / Virusdatabase: 271.1.1/3064 - datum van uitgifte:
08/11/10 08:34:00