Was ich an internen Tabellen hasse ist, dass die Informationen am Ende der Quelle stehen und eine nach meinem Geschmack illustere Syntax haben.

Deshalb definiere ich i.d.R. globale/locale Datenstrukturen, die direkt initialisiert werden und innerhalb der Quelle nicht verändert werden. (...ich weiß ist nicht das gleiche, aber m.E. einfacher zu handeln und mit den richtigen Namenskonventionen sollte auch der Kollege solche Struktueen nicht überschreiben:

Code:
  DCL-DS  ConstDSMonat   Qualified;
      *N  Zoned(2) inz(1);
      *N  Char(10) inz('Januar');
      *N  Zoned(2) inz(2);
      *N  Char(10) inz('Februar');
 ...
     Arr     Dim(12)  Pos(1);
     ArrNum  Zoned(2) Overlay(Arr);
     ArrChar Char(10) Overlay(Arr: *Next);
  END-DS;
Birgitta