Re: Redefining Arrays

Joe Giusto wrote:
> 
> 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.

Hi Joe,
V4R2 allows you to overlay the datastructure itself:

  D monthds         DS
  D month01
  D month02
  D month03
  ...
  D month12
  D mthary                                 Like(month01) Dim(12)
                                           Overlay(monthds)

Another option would be using a pointer:

  D mthptr                           *     Inz(%Addr(month01))
  D mthary                                 Like(month01) Dim(12)
                                           Based(mthptr)

Best regards,
Carsten Flensburg

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