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

[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