RE: Is this the simplest way to define corresponding arrays inD-specs Ipostedan example of what I am trying to do (define twocorresponding arrayswithinitialization values) athttp://code.midrange.com/c7ffa28dce.html Isthe code shown inthe example the

(Note: the "inz" is on the same line as the "overlay" - the email client

is causing them to wrap)

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Briggs, Trevor
(TBriggs2)
Sent: Wednesday, August 07, 2013 8:42 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Is this the simplest way to define corresponding arrays
inD-specs Ipostedan example of what I am trying to do (define
twocorresponding arrayswithinitialization values)
athttp://code.midrange.com/c7ffa28dce.html Isthe code shown inthe
example the

The following is a tad shorter, but not really much simpler...

D Positions ds
D 4 Overlay(Positions)
inz('fFhH')
D PositionsX 1 Overlay(Positions) dim(4)


D Pos ds
D 24 overlay(Pos)
D
inz('footerfooterheaderheader')
D PosValue 6 overlay(Pos) dim(4)

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of craig@xxxxxxxxxx
Sent: Wednesday, August 07, 2013 6:02 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: 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

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