Progamm interne Tabelle in RPGIV definieren

[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