Re: Redefining Arrays

[Rob Berendt <rob@xxxxxxxxx>]

How about this example?
D                 DS                                                 
D DayData                       42    Inz('Mon   Tues  Wednes+       
D                                          Thurs Fri   Satur Sun   ')
D DayArray                       6    Overlay(DayData) Dim(7)        
C                   Return    %TrimR(DayArray(DayOfWeek(WorkDate))) +
C                             'day'                                  

DayOfWeek is a procedure that we have that returns the day of week, of a date 
field, as a number, 1=Monday.




JGiusto@patuxent.com on 03/11/99 01:33:03 PM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     midrange-l@midrange.com@Internet
cc:      

Subject:        Redefining Arrays

I have an array of months in a records to store amounts.  To process the
array, I have defined in DS as follows:

D               DS
D month01
D month02
D month03
....
D month12
D mthary                1     120   2     DIM(12)

Assuming 10.2 definition for the month fields.
Is there a better way (perhaps dynamically) to define this?

I have tried the overlay keyword: 
D mthary                       10   2     DIM(12)  OVERLAY(month01)

but will not compile because the array is larger than month01.

Any suggestions would be appreciated.

Thank you,

Joe Giusto II
Patuxent Publishing Company
 <mailto:jgiusto@patuxent.com> mailto:JGiusto@patuxent.com
http://www.lifegoeson.com <http://lifegoeson.com> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---