Rename Felder

[RobertMack]

Alternative:

D FLDALL DS INZ
D FLD 1 16 DIM(16)
D FLD01 1 1
D FLD02 2 2
...
D FLD16 16 16

Gruß,
Robert

[B.Hauser]

Die Alternative von Robert hat einen Nachteil, die Feld-Längen bzw. Anfang und Ende eines jeden Feldes sind hardcodiert.

Sollte sich an den Feldlängen je etwas ändern, kommt es zu Problemen.

Felder, die bereits in den F-Bestimmungen definiert sind, können in eine Datenstruktur eingebunden werden, ohne Angabe einer Feld-Definition. (Einfach auflisten)
Diese Datenstruktur kann dann durch eine Feldgruppe überlagert werden.

Das folgende Beispiel zeigt wie 12 Monats-Umsätze aus einer Datei umbenannt werden können:

D  DsUmsatz       DS                                              
D    Ums1                                                         
D    Ums2                                                         
D    Ums3                                                         
D    Ums4                                                         
D    Ums5                                                         
D    Ums6                                                         
D    Ums7                                                         
D    Ums8                                                         
D    Ums9                                                         
D    Ums10                                                        
D    Ums11                                                        
D    Ums12                                                        
D  FGUms                              like(Ums1) Dim(12) Overlay(DSUms) 

Da Datei-Felder immer global definiert sind, können Sie nicht lokal umbenannt werden.

Birgitta

[mk]

Hallo zusammen

und vielen Dank.

Das war's

gruss
Michael