AW: Is this the simplest way to define corresponding arrays in D-specs Ipostedan example of what I am trying to do (define two corresponding arrayswithinitialization values) at http://code.midrange.com/c7ffa28dce.html Isthe code shown in the example the

Do you mean something like this:



D MyDS DS

D 3P 0 inz(100)

D 5A inz('AAAAA')

D 3P 0 inz(150)

D 5A inz('BBBBB')

D 3P 0 inz(200)

D 5A inz('CCCCC')

D 3P 0 inz(250)

D 5A inz('DDDDD')

D MyArray Dim(4) Overlay(MyDS)

D MyArr1 3P 0 Overlay(MyArray)

D MyArr2 5A Overlay(MyaArray: *Next)



Mit freundlichen Grüßen / Best regards



Birgitta Hauser



"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)

"If you think education is expensive, try ignorance." (Derek Bok)

"What is worse than training your staff and losing them? Not training them
and keeping them!"



-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von craig@xxxxxxxxxx
Gesendet: Wednesday, 07.8 2013 12:02
An: rpg400-l@xxxxxxxxxxxx
Betreff: Is this the simplest way to define corresponding arrays in D-specs
Ipostedan example of what I am trying to do (define two corresponding
arrayswithinitialization values) at http://code.midrange.com/c7ffa28dce.html
Isthe code shown in the example the



I posted an example of what I am trying to do (define two corresponding

arrays with initialization values) at



[1] <http://code.midrange.com/c7ffa28dce.html>
http://code.midrange.com/c7ffa28dce.html



Is the code shown in the example the simplest/best way to define and

initialize the arrays? If not, what is a better alternative (in D-specs).



Thanks

Craig Pelkie





References



Visible links

1. <http://code.midrange.com/c7ffa28dce.html>
http://code.midrange.com/c7ffa28dce.html

--

This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: <mailto:RPG400-L@xxxxxxxxxxxx>
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,

visit: <http://lists.midrange.com/mailman/listinfo/rpg400-l>
http://lists.midrange.com/mailman/listinfo/rpg400-l

or email: <mailto:RPG400-L-request@xxxxxxxxxxxx>
RPG400-L-request@xxxxxxxxxxxx

Before posting, please take a moment to review the archives at
<http://archive.midrange.com/rpg400-l> http://archive.midrange.com/rpg400-l.