I'd simply the data structure definition as follows:

D Amounts_DS DS
D Amt01 7P 0
D Amt02 7P 0
D Amt03 7P 0
D Amt04 7P 0
D Amt05 7P 0
D Amt06 7P 0
D Amt07 7P 0
D AmtArray 7P 0 Overlay(Amounts_DS) Dim(7)

When I tried this at V5R4, SQL generated code that put the first seven
columns into AMT01-AMT07, and then an 8th column into AmtArray... which set
all of AmtArray to the same value (zero) since a move to an array without
index is a move to all elements of the array (and then I got an error about
wrong number of columns).


Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
... Had this been an actual emergency, we would have fled in terror, and you
would not have been informed.




This thread ...

Follow-Ups:
Replies:

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

This mailing list archive is Copyright 1997-2026 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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.