Numerische Datumsfelder in Characterfeld

[harkne]

Folgendes Problem.

Ich habe vier numerische Felder mit je 2,0 Feldlänge
Tag Monat Jahr Jahrhundert.
Diese möchte ich in ein 8-stelliges Characterfeld bringen im Format DDMMCCYY.

Muss ich nachwievor wie folgt vorgehen:
eval DatumNum = Tag * 1000000 + Monat * 10000 + Jahrhundert * 100 + Jahr
move DatumNum DatumChar

oder gibt es "elegantere" Möglichkeiten über Built-in Functions.

Ich hab mal nach dem %char geschaut aber der entfernt mir die führenden Nullen was ich nicht brauchen kann.

Vielen Dank für Eure Mühe

[harkne]

Vielleicht sollte ich noch erwähnen dass wir V5R2M0 haben

[harkne]

Gibts hier eigentlich auch Buttons zum editieren damit ich mir nicht immer selbst antworten muss

Bitte keine Datenstrukturen wollte ich noch erwähnen und bitte keine Fragen warum keine Datenstrukturen

[B.Hauser]

Folgendes Problem.

Ich habe vier numerische Felder mit je 2,0 Feldlänge
Tag Monat Jahr Jahrhundert.
Diese möchte ich in ein 8-stelliges Characterfeld bringen im Format DDMMCCYY.

Muss ich nachwievor wie folgt vorgehen:
eval DatumNum = Tag * 1000000 + Monat * 10000 + Jahrhundert * 100 + Jahr
move DatumNum DatumChar

oder gibt es "elegantere" Möglichkeiten über Built-in Functions.

Ich hab mal nach dem %char geschaut aber der entfernt mir die führenden Nullen was ich nicht brauchen kann.

Vielen Dank für Eure Mühe

Wenn Du statt %Char, %EditC(Feld: 'X') nimmst sollte es funktionnieren:

 DatumChar = %EditC(Tag: 'X') + %EditC(Monat: 'X') + %EditC(JHD: 'X') + %EditC(Jahr: 'X'); 

Birgitta

[Fuerchau]

Nicht viel:

eval Datumchar = %editw(Tag * 1000000 + Monat * 10000 + Jahrhundert * 100 + Jahr:'00000000')

[harkne]

Danke, werde ich alles gleich probieren.