|
midrange.com
Hi guys,
sorry I forgot the second dimension in my former mail.
Here is the new example:
D DSArray DS Dim(6) qualified
D Cost 20P 3 Dim(5)
D Price 20P 3 Dim(5)
D Index S 3U 0
D Ind S 3U 0
/Free
For Index = 1 to %Elem(DSArray);
For Ind = 1 to %Elem(DSArray.Cost);
DSArray(Index).Cost(Ind) = Ind * Index;
DSArray(Index).Price(Ind) = Ind + Index;
Dsply DSArray(Index).Cost(Ind);
Dsply DSArray(Index).Price(Ind);
EndFor;
EndFor;
/End-Free
Birgitta
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
