Rename Felder

[mk]

Hallo zusammen,

heute ist wieder Freitag und wenn man schon seit Uhr 3.00 wach ist ?????

Ich möchte Dateifelder in einer lokalen Prozedur umbenenen:

Beispiel
d tbl s Dim(16) like(xxx)

i TBLQ01 TBL(1)
i TBLQ02 TBL(2)

Die TBLQ01 - TBLQ... sind Dateifelder.

Kann man diese nicht in einer lokalen Prozedur umbennen ?


Vielen Dank für eure Bemühungen

Gruss
Michael

[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