RE: Constant arrays

I don't know where the article is, but here's an example of month abbreviations in an array. In this DS/array, I could have created a field name for each of the abbreviations but chose not to.



So my array in this case is ds_Abbv.Array.

Example: ds_Abbv.Array(2) = 'Feb'



// Abbreviated Month Array

D ds_Abbv DS Qualified

D Data 36a

D 3a Inz( 'Jan' ) Overlay( Data: *next )

D 3a Inz( 'Feb' ) Overlay( Data: *next )

D 3a Inz( 'Mar' ) Overlay( Data: *next )

D 3a Inz( 'Apr' ) Overlay( Data: *next )

D 3a Inz( 'May' ) Overlay( Data: *next )

D 3a Inz( 'Jun' ) Overlay( Data: *next )

D 3a Inz( 'Jul' ) Overlay( Data: *next )

D 3a Inz( 'Aug' ) Overlay( Data: *next )

D 3a Inz( 'Sep' ) Overlay( Data: *next )

D 3a Inz( 'Oct' ) Overlay( Data: *next )

D 3a Inz( 'Nov' ) Overlay( Data: *next )

D 3a Inz( 'Dec' ) Overlay( Data: *next )

D Array 3a Dim( %div( %len( ds_Abbv.Data ): 3 ))

D Overlay( Data )





-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Friday, April 01, 2011 3:44 PM
To: RPG programming on the IBM i / System i
Subject: Constant arrays



There was a reference to an article by Jon Paris about defining constant array instead of using using the CTDATA keyword.



I have looked but I cannot find the reference again. Anybody remember that reference?

--

This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx<mailto: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<mailto:RPG400-L-request@xxxxxxxxxxxx>

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