Progamm interne Tabelle in RPGIV definieren

[B.Hauser]

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:

  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

[Pikachu]

Oder vielleicht so?

DMONATE           DS                                         
DARRINZ                               INZ('01Januar    +     
D                                          02Februar   +     
D                                          03März      +     
D                                          04April     +     
D                                          05Mai       +     
D                                          06Juni      +     
D                                          07Juli      +     
D                                          08August    +     
D                                          09September +     
D                                          10Oktober   +     
D                                          11November  +     
D                                          12Dezember  ')    
DARR                                  OVERLAY(ARRINZ) DIM(12)
DARRNUM                          2S 0 OVERLAY(ARR)           
DARRCHAR                        10A   OVERLAY(ARR:*NEXT) 

[B.Hauser]

Oder vielleicht so?

DMONATE           DS                                         
DARRINZ                               INZ('01Januar    +     
D                                          02Februar   +     
D                                          03März      +     
D                                          04April     +     
D                                          05Mai       +     
D                                          06Juni      +     
D                                          07Juli      +     
D                                          08August    +     
D                                          09September +     
D                                          10Oktober   +     
D                                          11November  +     
D                                          12Dezember  ')    
DARR                                  OVERLAY(ARRINZ) DIM(12)
DARRNUM                          2S 0 OVERLAY(ARR)           
DARRCHAR                        10A   OVERLAY(ARR:*NEXT) 

Das klappt bei gezonten und alphanumerischen Feldern mit fixer Länge. Bei gepackten Feldern und/oder Feldern mit variabler Länge wird diese Schreibweise problematisch.

Birgitta