Hallo Fuerchau,

Deine Lösung ist RPGIII oder RPG400 und mit Sicherheit nicht RPGIV.
(E-Bestimmungen gibt es in RPGIV nicht und I-Bestimmungen braucht man nicht mehr!)

In RPGIV geht das etwas eleganter:
Man kann auf andere Felder referenzieren.
Statt Von/Bis-Angaben genügt die Feld-Definition (Länge/Typ/Dezimal-Stellen)
Sind Felder bereits definiert, z.B. in Datei durch F-Bestimmung,
genügt eine Auflistung der Felder.

Wichtig ist nur, dass die Feldgruppe die Datenstruktur überlagert und nicht etwa das 1.Feld.

PHP-Code:
D DSUmsatz        DS                                                     
D  UmsJan                       11P 3                                    
D  UmsFeb                       11P 3                                    
D  UmsMrz                       11P 3                                    
D  UmsApr                       11P 3                                    
D  UmsMai                       11P 3                                    
D  UmsJuni                      11P 3                                    
D  UmsJuli                      11P 3                                    
D  UmsAug                       11P 3                                    
D  UmsSept                      11P 3                                    
D  UmsOkt                       11P 3                                    
D  UmsNov                       11P 3                                    
D  UmsDez                       11P 3    
D  FGUmsatz                           like(UmsJan) Overlay(DSUmsatz)    
D                                     Dim(12)                                                          

 * Überlagerung von Datei-Feldern
D  DSADName       DS                                                    
D   ADNA1                                                               
D   ADNA2                                                               
D   ADNA3                                                               
D   ADNA4                                                               
D   ADNA5                                                               
D   FGName                            like(ADNA1) Dim(5) overlay(ADNAME)