Datum "umdrehen"

[B.Hauser]

Wie willst Du es denn andrucken, mit oder ohne Trennzeichen?
Ist das Feld alpha oder numerisch?

/Free 
   MyCharDate = %Char(%Date(NumDate: *ISO): *EUR); //TT.MM.JJJJ
   MyNumDate = %Dec(%Date(NumDate: *ISO): *EUR); //TTMMJJJJ
/End-Free

MyCharDate ist 10A
MyNumDate ist 8,0

Birgitta

[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

[camouflage]

Versuchs mal so ...
Nimm Brigitta's Beispiel

/Free 
   MyCharDate = %Char(%Date(NumDate: *YYMD): *EUR); //TT.MM.JJJJ
   MyNumDate = %Dec(%Date(NumDate: *YYMD): *EUR); //TTMMJJJJ
/End-Free

Anstelle der *ISO Definition schreibst Du *YYMD rein.

[Jokersams]

Was soll das YYMD denn genau bewirken ?
Bekomm jedenfalls hier die Meldung, dass das Token ungültig ist und ein Operand erwartet, aber nicht gefunden wurde...

RPG ist schon anstrengend :>

Danke für die Antworten

[camouflage]

Sorry, vergiss das obige posting - *yymd betrifft CL.

Definiere ein Feld z.b. D
D datum s d datfmt(*iso)

Move dein Datum in dieses Feld und verwende Birgittas Beispiel. Das sollte so funktionieren. Bei mir tut es jedenfalls.

[malzusrex]

Nimm die Variante von ExAzubi und packe ein IF darum

If SKBDAT > *Zeros
MOVEL SKBDAT DAT1
MOVEL DAT1 DAT2
MOVE DAT2 ZZDATE
Else
Eval ZZDATE =*Zeros
EndIf

[ExAzubi]

Ich habe nciht geschrieben 20121011 sondern 20120231 !!

Denn der 31.02.2012 ist kein gültiges Datum.

Am besten noch vorher eine Monitor-Group drumherum, dann kann ja nichts passieren!

[Jokersams]

Ah, ok... tut mir leid.
Anscheinend nur flüchtig drübergeschaut
Habs jetzt mit den Datenstrukturen gemacht, funktioniert auch soweit.

Danke an alle