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)