Re: Sort of a Data Structure Array... Idea

[rob@xxxxxxxxx]

I haven't tested using a qualified Ds on the sorta.  The other stuff is 
pretty cool though.

Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)




rob@xxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/19/2004 10:21 AM
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: Sort of a Data Structure Array... Idea






Here is a working program:
     D                 ds
     D MyArray                        4a   dim(20)
     D  Code1                         2a   overlay(MyArray)
     D  Code2                         2a   overlay(MyArray:*next)

     D X               s             10i 0
      /UNDEFINE DSpec

      /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'
       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'
       *inlr=*on;
       return;
      /End-free

So in your case you could do
     D DispItems       DS                  Qualified
     D  DispItemsFld                       Dim(5000) like(Dummy)
     D   Insurance                         Inz(0) overlay(DispItemsFld)
     D                                     like(dummy.Insurance)
     D   Family                            Inz(0) 
overlay(DispItemsFld:*next)
     D                                     like(dummy.Family)
     D   Member                            Inz(0) 
overlay(DispItemsFld:*next)
     D                                     like(dummy.Member)
     D   Claim                             Inz(0) 
overlay(DispItemsFld:*next)
     D                                     like(dummy.Claim)
     D   Assigned                          Inz(*Loval)
     D                                     overlay(DispItemsFld:*next)
     D                                     like(dummy.Assigned)

     D Dummy           ds                  Qualified
     D   Insurance                    5S 0
     D   Family                       9P 0
     D   Member                       2S 0
     D   Claim                        4P 0
     D   Assigned                      D
Then you should be able to sort your array by any of the fields in it.



Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)

_______________________________________________
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.