Übergabe Datenstruktur (Occur=16) an Prozedur in Modul

[ILEMax]

off topic
die Komination aus occur und DIM erlaubt dann schöne 2-dimenionale Tabelen

Der ILEMax

[B.Hauser]

off topic
die Komination aus occur und DIM erlaubt dann schöne 2-dimenionale Tabelen

Der ILEMax

Diese Kombination war bereits in RPGIII möglich!

Für mehrdimensionale Tabellen ist eine Kombination von Occur und Dim nicht notwendig. Mit DIM und verschachtelten Datenstrukturen (jeweils wieder mit DIM) kannst Du die schönsten Schweinereien machen.

z.B.

D BestMon         DS                  Dim(12) Qualified                   
D  AnfBest                      11P 3                                     
D  Zugang                       11P 3                                     
D  Abgang                       11P 3                                     
D  EndBest                      11P 3                                     
                                                                          
D JahresBestand   DS                  Dim(3) Qualified                    
D   Bestand                           LikeDS(BestMon) Dim(%Elem(BestMon)) 
                                                                          
D Abweichung      S              7P 2           
D Jahr            S              5U 0 inz(2)  
D Monat           S              3U 0 inz(11)                              
**************************************************************************
 /Free                                                                    
                                                                          
   Abweichung = (1 - Jahresbestand(Jahr).Bestand(Monat).AnfBest) * 100 /  
                     Jahresbestand(Jahr-1).Bestand(Monat).AnfBest;        
                                                                          
 /End-Free

Birgitta

[ILEMax]

Toll.
ich bin beeindruckt!
Konnte mich nie an das Qualified Kram gewöhnen.
Aber das sieht schon sehr gut aus...
Muß ich wohl noch mal ein wenig lernen.
(und das, wo wir EDV'le ja sowieso nie mit dem Lernen aufhören ...
)

Danke Birgitta,
Der ILEMax

[msost]

Um es mal mit den Worten einer jungen Dame (bekannt aus Funk und Fernsehen) zu sagen:

Danke Birgitta und ILEMax! Hat mich schwer gehelft!