Datum "umdrehen"

[Jokersams]

Danke Birgitta.
Das Feld ist numerisch, und trennen wollte ich es per EDTCDE in der printerfile.

Probiere es jetzt mal aus

[Jokersams]

Ich habe es jetzt mal so reingeschrieben:

ZZDATE = %dec(%Date(SKBDAT: *ISO): *EUR);

ZZDATE ist intern mit 8S 0 deklariert
SKBDAT ist das Feld in der physical file, welches die Zahlen enthält.

Fehler beim programmabruf:
Darums-, Zeit- oder Zeitmarkenwert ist ungültig.

Kann es sein, das dies nicht funktionieren kann, weil SKBDAT ein beliebiges 8S 0 num Feld ist, wo einfach Daten wie "20121011" per upddta reingeschrieben worden ?

[ExAzubi]

Also man kann das auch anders machen

D DAT1 S D DATFMT(*ISO)
D DAT2 S D DATFMT(*EUR)

MOVEL SKBDAT DAT1
MOVEL DAT1 DAT2
MOVE DAT2 ZZDATE

Wichitg ist dafür nur das in SKBDAT gültige Werte enthält also 0 oder 20120231 wird nicht funktionieren?

Desweiteren würde ich dir empfehlen, das ZZDATE nicht num. zu definieren sondern 10A und dann DAT2 über die Funktion %CHAR.

Ganz billige Alternative über Datenstrukturen. Geht immer

[Jokersams]

Das sieht schonmal gut aus, danke.

Aber du sagst das Werte wie "0" oder "20121011" nicht funktionieren würden ?

Das Problem ist ja, das SKBDAT genau diese Werte enthält

Also in SKBDAT stehen halt die Daten im Format 20121011, welche ich gerne in 11102012 hätte....

[B.Hauser]

Fehler beim programmabruf:
Darums-, Zeit- oder Zeitmarkenwert ist ungültig.

Du kannst ein numerisches Feld auf ungültige Datumswerte prüfen (OpCode TEST(DE) ).

Einfacher ist es jedoch ungültige Datumswerte über eine Monitor-Group zu handeln. Das klappt sowohl bei den Built-In-Funktionen als auch bei den MOVE-Befehlen

 /Free
   Monitor;
     MyNumDate = %Dec(%Date(NumDatum: *ISO): *EUR);
   On-Error;
     //Ungültiges Datum
   EndMon;
 /End-Free