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