RE: SORTA and Data Structure Arrays

["Bob cozzi" <cozzi@xxxxxxxxx>]

Rob,
This is new syntax for me.
So if you overlay a subfield on top of an Array, the overlaying subfield
itself becomes an array of the same number of elements?  I suppose that's
right, how else could it work.  Very cool.

Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Tuesday, December 09, 2003 8:07 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: SORTA and Data Structure Arrays

SORTA works great on DS arrays.  See the following code:

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

     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'
       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

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.