• Subject: Re: Redefining Arrays
  • From: Carsten Flensburg <novasol@xxxxxxxxxxxx>
  • Date: Thu, 11 Mar 1999 21:48:23 +0100
  • Organization: Novasol Data AS

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


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact [javascript protected email address].